unit untTypes; interface type TDialogType = (dtAdd, dtEdit); { TCardAppication } TCardApplication = record //KeyA: string; //KeyB: string; AppCode: Integer; FirmCode: Integer; end; implementation end.