Bueno, podés usar la propiedad Lines de la TMemo:
Digamos, Edit1.Text:=Memo1.Lines[3] Me da la tercera línea del memo.
Con este enfoque, buscar la linea podría ser algo así:
var ind:integer;
salir:boolean;
begin
ind:=0;
Salir:=false;
while (ind<Memo1.Lines.Count) and not Salir do
begin
if Memo1.Lines[ind]='hola' then
begin
Edit1.Text:=Memo1.Lines[ind];
Salir:=true;
end
else
inc(ind);
end;
Quizás la comparación de la línea no tiene mucho sentido, digo, si uno sabe lo que quiere extraer, simplemente puede poner el texto en el edit, no necesita buscarlo... :)
Quizás lo que quieras es buscar una determinada frase o palabra en la línea. Entonces en vez de la comparación con =, podría usarse la función AnsiContainsStr, de la unidad StrUtils.
Espero te sirva. Saludos.