[dec]

Hola,

Lo que pasa es que el código que tú utilizas:

Código Delphi [-]
var
  i:Integer;
begin
  for i:= Low(DIRASM) to High(DIRASM) do
    if AnsiPos(DIRASM[i],Memo1.Lines[Memo1.Lines.Count-1]) <> 0 then
      Memo2.Lines.Add(Memo1.Lines[Memo1.Lines.Count-1]);
end;

... no es el mismo que el que Daniel te propone arriba:

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;