Hola, puedes usar varios modos.
Uno puede ser el clásico:
Crear una variable del tipo TextFile
Realizar un Assign para asignar a la variable anterior el fichero de texto
Luego puedes hacer un append del fichero y luego un readln para leer linea a linea del fichero.
Voy a escribirlo de memoria, así que es probable que no compile a la primera
Código Delphi
[-]
var f : TextFile;
lineaactual : string;
begin
AssignFile('c:\test.txt', f);
try
Append(f);
while not Eof do begin
Readln(f, lineaactual); end;
finally
Closefile(f);
end;
end;
Otra manera más como para hacer, puede ser usando un objeto TMemo.
Lo arrastras a tu form y pones lo siguiente:
Código Delphi
[-]
Memo1.Lines.LoadFromFile(c:\test.txt);
Ya tienes el fichero cargado en el memo.
Código Delphi
[-]
var l : integer;
linea : string;
begin
for l := 0 to memo1.lines.count - 1 do begin
linea := memo1.lines.strings[l];
if Pos('Email', linea) = 0 then memo1.lines.strings[l] := '';
end;
Memo1.Lines.SaveToFile(c:\Final.txt);
end;
Bueno como ves hay un par de alternativas, y seguro que puedes encontrar más.
Saludos