procedure TMyDialog.SetupWindow;                            
var
   pStr : pStrType;
begin
     TDialog.SetupWindow;
     StrPCopy(pStr, gCheck.ID); ID^.SetText(pStr);
     StrPCopy(pStr, gCheck.Date); Date^.SetText(pStr);
     StrPCopy(pStr, gCheck.Amount); Amount^.SetText(pStr);
     StrPCopy(pStr, gCheck.PayTo);  PayTo^.SetText(pStr);
     StrPCopy(pStr, gCheck.Comment); Comment^.SetText(pStr);
end;