Tal cual, mira lo tengo asi, dentro de un boton:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
i,j: integer;
begin
with TStringList.Create do
try
LoadFromFile('c:\visitasweb.txt');
i:= 0;
while i < Count do
begin
j:= Pos('EMAIL',Uppercase(Strings[i]));
if j > 0 then
begin
Strings[i]:= Copy(Strings[i],j,MAXINT);
inc(i);
end else
Delete(i);
end;
SaveToFile('c:\resultado.txt');
showMessage ('Listo');
finally
Free;
end;
end;
Y nunca me muestra el mensaje de Listo...