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;