ign="justify"> TfmSchengenAgreement.miOpenClick (Sender: TObject) ;: TFileStream; Not (OpenDialog1. Execute) Then Exit; (nil);:=TFileStream. Create (OpenDialog1. FileName, fmOpenRead); (fmSchengenAgreement, - 1, AnkFile) ;. Free ;. FileName:=OpenDialog1. FileName ;;
TfmSchengenAgreement.miSaveAsClick (Sender: TObject); Not (SaveDialog1. Execute) Then Exit; (nil) ;;
TfmSchengenAgreement.miSaveClick (Sender: TObject) ;: TFileStream; .ADOTable1. Insert ;;;
;
TfmSchengenAgreement. FormCreate (Sender: TObject); (nil) ;;
procedure TfmSchengenAgreement.lbedSurnameChange (Sender: TObject);
//lbFullName. Caption:=lbedSurname. Text + + lbedName. Text + + lbedPatronymic. Text ;;
TfmSchengenAgreement. Timer1Timer (Sender: TObject) ;. Enabled:=False ;. Tag:=0 ;;
TfmSchengenAgreement.cbxFamilyStatusExit (Sender: TObject) ;. Tag:=1 ;. Enabled:=True ;;
TfmSchengenAgreement.lbedSurnameKeyUp (Sender: TObject; Key: Word; Shift: TShiftState); Timer1. Tag lt; gt; 1 Then Exit; Key lt; gt; 9 Then Exit ;. Enabled:=False; (Self) ;;
TfmSchengenAgreement. FormActivate (Sender: TObject) ;. ADOTable1. Insert ;;;
.
