show record using script?

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
var
    sID: string;
    sDate: string;
begin
    if Form1.GridEmployees.dbItemID<>-1 then // if there is selected record in TableGrid
    begin
        sID := Form1.GridEmployees.sqlValue; // id of record for show
        frmEmpScript.edLastName.Text:= SQLExecute('SELECT lastname FROM employees WHERE id='+sID); // get lastname
        frmEmpScript.edFirstName.Text:=SQLExecute('SELECT firstname FROM employees WHERE id='+sID); // get firstname

        // date
        sDate := SQLExecute('SELECT dateofbirth FROM employees WHERE id='+sID);
        if sDate <>'' then frmEmpScript.DateTimePicker1.Date := SQLDateTimeToDateTime (sDate)
        else frmEmpScript.DateTimePicker1.Checked:= False;

        frmEmpScript.ShowModal; // show form
    end;
end;