[NumLock]

Код:

var
  s: String;
begin
  s:=StringReplace(Memo1.Text, #13, '', [rfReplaceAll, rfIgnoreCase]);
  Edit1.Text:=StringReplace(s, #10, ' ', [rfReplaceAll, rfIgnoreCase]);
end;