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;