[NumLock]

Код:

var
  s: String;
  i: Integer;
begin
  s:='';
  for i:=1 to Length(Memo1.Text) do
    if Memo1.Text[i] in ['А'..'Я', 'а'..'я', ' '] then s:=s+Memo1.Text[i];
  Memo1.Text:=s;
end;