Comando para apgar o arquivo

Bom dia galera...

Seguinte, fiz um sistema para enviar arquivo txt via ftp... Quando você roda pela primeira vez, ele envia direitinho... cria as pastas e joga seus respectivos arquivos dentro dela... Mas quando rodo de novo, dá erro, pq a pasta já está criada... então fiz assim

IdFTP1.Connect;

 ALista := TstringList.Create;

 IdFTP1.changedir('/');

 IdFTP1.list(Alista,'*',False);

 for i:=0 to Alista.Count-1 do

 begin

 if Alista*= local then*

begin

IdFTP1.SendCmd('rm-f '+local+'.txt');

//IdFTP1.SendCmd('rm-f'+local); ele da erro aqui

end;

end;

ALista.Free;

Ele só remove o arquivo txt

E antes de dar o put, nao sei pq ele já envia o arquivo novo para dentro da pasta e se a pasta nao estiver vazia, é obvio q nao vou conseguir apaga-la

afffff....

Alguém me ajuda, por favor...

Beijos

Mel