Filtrar las filas encontradas en un txt

[Racso2006]

Buenos dias y muchas gracias de antemano.

Lo que intento hacer es lo siguiente.

tengo un texto txt que al hacer un buscar me tiene que sacar todas las filas que contengan lo que se ha escrito en ese edit.

He provado de varias maneras diferentes pero no me llega a salir correctamente, y actualmente no tengo casi nada ya que nada me ha servido:

Código Delphi [-]
procedure TFconfigcliente.SpeedButton1Click(Sender: TObject);
 var 
 Archivo: TStrings;
 fichero:string;
 i: Integer;
 PosIni, PosFin : Integer; 
 CadenaTmp, Resultado : String; 

   begin  
   Archivo := TStringList.Create;
     if Open1.execute then  
     begin  
     fichero := open1.Files.Strings[0]; 
     Archivo.LoadFromFile(fichero); 
     end; 
   CadenaTmp := Archivo.text;  
     for i:=0 to (Archivo.Count-1) do
     begin
       if Ansipos(trim(edit1.text),trim(CadenaTmp))<>0 then //esto no se si lo tengo bien definido para que realize el if solo a las filas que tengan la palabra  
       begin   
       memo1.Text := archivo. ;    //no se como definir que imprima toda la fila 
       end; 
    end;

si hay algun codigo que no cuadre es de todas las pruebas que he realizado que ya me he liado un poco.

espero podais arrojar luz sobre este desastre :P