procedure TMyDialog.HandleOkay(var Msg: TMessage);
var
   PStr: pStrType;
begin
     ID^.GetText(PStr, Len_ID); gCheck.ID := StrPas(PStr);
     Date^.GetText(PStr, Len_Date); gCheck.Date := StrPas(PStr);
     Amount^.GetText(PStr, Len_Amount); gCheck.Amount := StrPas(PStr);
     PayTo^.GetText(PStr, Len_PayTo); gCheck.PayTo := StrPas(PStr);
     Comment^.GetText(PStr, Len_Comment); gCheck.Comment := StrPas(PStr);
     EndDlg(id_OK);
end;