Курсовая работа: Создание программы на языке Delphi 70

12. Button3: TButton;

13. Label1: TLabel;

14. Label2: TLabel;

15. Label3: TLabel;

16. Label4: TLabel;

17. Button4: TButton;

18. procedure Button1Click(Sender: TObject);

19. procedure Button2Click(Sender: TObject);

20. procedure FormCreate(Sender: TObject);

21. procedure Button3Click(Sender: TObject);

22. procedure Button4Click(Sender: TObject);

23. private

24. { Private declarations }

25. public

26. { Public declarations }

27. end;

28. var

29. Form1: TForm1;

30. OFName,SFName:String;

31. implementation

32. {$R *.dfm}

33. procedure TForm1.Button1Click(Sender: TObject);

34. begin

35. if OpenDialog1.Execute then

36. OFName:=OpenDialog1.FileName;

37. if OFName<>'' then begin

38. Button1.Enabled:=False;

39. Button2.Visible:=True;

40. Label1.Caption:='Путь к файлу для проверки: '+OFName;