Delphi. Учимся на примерах

Компонент	Свойство	Значение	Пояснение
Label1 (категория Standard)	Caption	FTP-сервер	Надпись метки
	Left	56	Отступ слева
	Top	16	Отступ сверху
Label2	Caption	Имя пользователя	Надпись метки
	Left	16	Отступ слева
	Top	48	Отступ сверху
Label3	Caption	Пароль	Надпись метки
	Left	72	Отступ слева
	Top	80	Отступ сверху
Edit1 (категория Standard)	Name	ftpserver	Новое имя компонента
	Text	ftp.narod.ru	Адрес FTP-сервера
	Left	120	Отступ слева
	Top	8	Отступ сверху
Edit2	Name	name	Новое имя компонента
	Text	test6001	Имя пользователя
	Left	120	Отступ слева
	Top	40	Отступ сверху
Edit3	Name	pass	Новое имя компонента
	Left	120	Отступ слева
	Top	72	Отступ сверху
Edit4	Name	port	Новое имя компонента
	Text	21	Имя пользователя
	Left	120	Отступ слева
	Top	104	Отступ сверху
Edit5	Name	del	Новое имя компонента
	Left	512	Отступ слева
	Top	8	Отступ сверху
Edit6	Name	cd	Новое имя компонента
	Left	512	Отступ слева
	Top	40	Отступ сверху
Edit7	Name	cmd	Новое имя компонента
	Left	512	Отступ слева
	Top	72	Отступ сверху
Edit8	Name	md	Новое имя компонента
	Left	512	Отступ слева
	Top	104	Отступ сверху
Edit9	Name	rd	Новое имя компонента
	Left	512	Отступ слева
	Top	136	Отступ сверху
Edit10	Name	download	Новое имя компонента
	Left	512	Отступ слева
	Top	168	Отступ сверху
Button1 (категория Standard)	Caption	Подключиться	Надпись на кнопке
	Left	8	Отступ слева
	Top	144	Отступ сверху
Button2	Caption	Отключиться	Надпись на кнопке
	Left	123	Отступ слева
	Top	144	Отступ сверху
Button3	Caption	Загрузить файл на сервер	Надпись на кнопке
	Left	512	Отступ слева
	Top	200	Отступ сверху
Button4	Caption	Удалить	Надпись на кнопке
	Left	672	Отступ слева
	Top	8	Отступ сверху
Button5	Caption	Изменить каталог	Надпись на кнопке
	Left	672	Отступ слева
	Top	40	Отступ сверху
Button6	Caption	Выполнить команду	Надпись на кнопке
	Left	672	Отступ слева
	Top	72	Отступ сверху
Button7	Caption	Создать каталог	Надпись на кнопке
	Left	672	Отступ слева
	Top	104	Отступ сверху
Button8	Caption	Удалить каталог	Надпись на кнопке
	Left	672	Отступ слева
	Top	136	Отступ сверху
Button9	Caption	Скачать файл	Надпись на кнопке
	Left	672	Отступ слева
	Top	168	Отступ сверху
Memo (категория Standard)	Name	status1	Новое имя компонента, предназначенного для отображения состояния соединения
	Lines	Статус:	Текст в поле
	Left	264	Отступ слева
	Top	8	Отступ сверху
	Height	217	Высота
	Width	233	Ширина
OpenDialog (категория Dialogs)	Name	Open1	Новое имя компонента, который будет использоваться для открытия файлов
SaveDialog (категория Dialogs)	Name	Save1	Новое имя компонента, который будет использоваться для сохранения файлов
NMFTP (категория FastNet)	Name	ftp	Новое имя главного компонента программы

Полученная форма должна соответствовать рис. 18.1.

Рис. 18.1. Форма FTP-клиента

Разработка программного кода

Обработаем нажатия кнопок соединения и отключения от сервера. Обработчик события OnClick для кнопки Подключиться: