ficheros

[Delpho]

Wenas amigos!!
Tengo una pequeña duda, y sobre como buscar una cadena dentro de un fichero.
mi fichero tiene un forma como este:
nombre apellido apellido2 fecha dni
y quisiera saber si yo puedo buscar la cadena de DNI y mostrar la linea entera

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
begin
  buscar:=MaskEdit1.Text;
  if FileExists('Clientes2.txt') then begin
    AssignFile (fich,'Clientes.txt');
    Reset (fich);
    while not Eof(fich) do Begin
      Readln(fich,texto);
      if (buscar=texto) then begin
          Memo1.Lines.Add(texto);
      end;
    end;//fin while
    CloseFile (fich);
  end
  else begin
    ShowMessage('El fichero aun no existe');
  end;//fin if
end;

Aver si alguien me puede echar una mano y decirme como se podria hacer
Muchas Gracias!!!