uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DSUtil, StdCtrls, DSPack, DirectShow9, Menus, ExtCtrls,jpeg,
  Buttons, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP;

try
    try
         idFTP1.Host:='ftp.rfebsu.by';   //FTP-
         idFTP1.Port:=21;
         idFTP1.Username:='prog@rfebsu.by';
         idFTP1.Password:='prog741852';


          idFTP1.Connect;
         idFTP1.ChangeDir('/abitur2015');//директория

          //idFTP1.Put('c:\test.txt','test.txt' ,true);
          //idFTP1.Delete('abitur2013.js');
          //idFTP1.Put('abitur2013.js','abitur2013.js' ,true);
          //отправка пакета снимков
          for iSt := IndSendST to IndST do begin
          TextSt:=IntToStr(iST)+'a.jpg';//a mean source for sending
          //idFTP1.Delete(TextSt);
          idFTP1.Put(TextSt,TextSt ,true);
                                           end;
          idFTP1.ChangeDir('/uploads');//директория
          //отправка пакета js
          for iSt := IndSendST to IndST do begin
          TextSt:=IntToStr(iST)+'a.json';//a mean source for sending
          //idFTP1.Delete(TextSt);
          idFTP1.Put(TextSt,TextSt ,true);
                                           end;
           //idFTP1.Put('abitur2013.js','',true);
          Image6.Visible:=true;//сделали кнопку снимка видимой
         ShowMessage('ПОЗДРАВЛЯЕМ'+#13#10+'ФАЙЛЫ ПЕРЕДАНЫ'
                +#13#10+'Ищите нас на сайте www.rfe.bsu.by');
         //запись сколько фотографий отослано IndSendST
        AssignFile(IndexSTUDENT, 'SendStudent.txt');
        Rewrite(IndexSTUDENT);
        WriteLn(IndexSTUDENT, IndST);
        CloseFile(IndexSTUDENT);
    finally
idFTP1.Disconnect;
 end;
  except
    ShowMessage('ОШИБКА'+#13#10+'ФАЙЛЫ НЕ БЫЛИ ПЕРЕДАНЫ'
                +#13#10+'Соединение не установлено');
  end;