Hola de nuevo.
No especificaste en que momento querías transferir las líneas. En el mensaje anterior se van pasando de forma interactiva (a medida que agregás una nueva línea), pero si deseas hacerlo de forma diferida:
Código Delphi
[-]
procedure TForm1.btnPasarLineasClick(Sender: TObject);
var
i,j: Integer;
begin
for i:= 0 to Memo1.Lines.Count-1 do
for j:= Low(DIRASM) to High(DIRASM) do
if AnsiPos(DIRASM[j], Memo1.Lines[i]) <> 0 then
Memo2.Lines.Add(Memo1.Lines[i]);
end;
Saludos
