> ftp.UserID:= name.Text;//логин
> ftp.Password:= pass.Text;// пароль
> ftp.Port:= StrToInt(port.Text); //порт для подключения
> //соединяемся с сервером
> if not ftp.Connected then ftp.Connect;
>end;
>procedure TForm1.ftpStatus(Sender: TComponent; Status: String);
>begin
> status1.Lines.Add(Status);
>end;
>procedure TForml.ftpError(Sender: TComponent; Errno: Word; Errmsg: String);
>begin
> status1.Lines.Add('Ошибка: ' + errmsg);
>end;
>procedure TForm1.ftpDisconnect(Sender: TObject);
>begin
> status1.Lines.Add('Отключено');
>end;
>procedure TForm1.ftpConnect(Sender:tobject);
>begin
> status1.Lines.Add('Подключено');
> //локальный ip-адрес
> status1Lines.Add('IP клиента: ' + ftp.LocalIP);
> //удаленный ip-адрес
> status1Lines.Add('IPсервера: ' + ftp.RemoteIP);
>end;
>procedure TForm1.ftpConnectionFailed(Sender: TObject);
>begin
> status1.Lines.Add('He удалось подключиться к серверу');
>end;
>procedure TForm1.ftpInvalidHost(var Handled: Boolean);
>begin
> status1.Lines.Add('Ошибка при подключении к серверу');
>end;
>procedure TForm1.ftpSuccess(Trans_Type: TCmdType);
>begin
> status1.Lines.Add('Успешно');
>end;
>procedure TForm1.ftpTransactionStart(Sender: TObject);
>begin
> status1.Lines.Add('Начало передачи данных');
>end;
>procedure TForm1.ftpTransactionStop(Sender: TObject);
>begin
> statusl.Lines.Add('Конец передачи данных');
>end;
>procedure TForm1.ftpAuthenticationFailed(var Handled: Boolean);
>begin
> status1.Lines.Add('Неверное имя или пароль');
>end;
>procedure TForm1.Button2Click(Sender: TObject);
>begin
> if ftp.Connected then//если соединен
> ftp.Disconnect;//отключиться от сервера
>end;
>procedure TForm1.Button3Click(Sender: TObject);
>var
> i: integer;
> FName, temp: string; //для получения имени файла
>begin
> if not Open1.Execute then ShowMessage('Файл не выбран!')
> else begin
> //очищаем переменные, которые содержат имя файла
> temp:= '';
> FName:= '';
> //получаем имя файла
> for i: = Length(Open1.FileName) downto 1 do
> begin
> if Open1.FileName[i] = '\' then break;
> temp:= temp+ Open1.FileName[i];
> end;
> for i:=length(temp) downto 1 do
> fname:= fname + temp[i];
> ftp.Upload(Open1.FileName, FName); //загружаем файл
> end;
>end;
>procedure TForm1.FormDestroy(Sender: TObject) ;
>begin
> if ftp.Connected then ftp.Disconnect;
>end;
>procedure TForm1.Button5Click(Sender: TObject);
>begin
> ftp.ChangeDir(cd.Text); //изменяем каталог
>end;
>procedure TForm1.Button4Click(Sender : TObject);
>begin
> ftp.Delete(del.text); //удалить файл
>end;
>procedure TForm1.Button6Click(Sender: TObject);
