CREATE PROCEDURE NEWPROBKA (
    STR1 INTEGER,
    STR2 INTEGER,
    CR_DATE1 VARCHAR( 19 ),
    DESCR VARCHAR( 300 ))
AS
BEGIN
INSERT
    INTO EXISTING_PROBKA
        (
        ID_PROBKA,
        ID_STREET1,
        ID_STREET2,
        CREATION_DATE,
        ACKNOW_DATE,
        DESCRIPTION_PROBKA
        )
    VALUES
        (
        NULL,
        :STR1,
        :STR2,
        :CR_DATE1,
        :CR_DATE1,
        :DESCR
        );

 END

        SP_insert->ParamByName("STR1")->AsInteger=StrToInt(NewProbka->StringGrid1->Cells[ 1  ][ 0 ]);
        SP_insert->ParamByName("STR2")->AsInteger=StrToInt(NewProbka->StringGrid1->Cells[ 1  ][ 1 ]);
        SP_insert->ParamByName("CR_DATE1")->AsString=Date_Time;
        SP_insert->ParamByName("DESCR")->AsString=NewProbka->Description->Text;
        SP_insert->Prepare () ;
        SP_insert->ExecProc ();
        SP_insert->Close();

SELECT * 
FROM EXISTING_PROBKA