var
vstup, novy:string;
i:integer;
begin
vstup:= (edit1.Text);
novy:='';
for i:= 1 to length(vstup) do

  if (vstup[i]>='0') and (vstup[i]<='9') or
  vstup[i]>='a') and (vstup[i]<='z') or
  vstup[i]>='A') and (vstup[i]<='Z') then
  novy:= novy + vstup[i];

memo1.lines.add (novy);
end;

end.