[Asinkrit]

Я думаю так покрасивее будет.

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var 
  a:array[0..9]of byte;
  i:byte;
begin
if Key=#13 then 
  begin
  for i:=0 to 9 do a[i]:=0;
  for i:=1 ot length(edit1.text) do
    inc(a[ord(Edit1.text[i])]);
  memo1.Clear;
  for i:=0 to 9 do 
    if a[i] <> 0 then
      memo1.lines.add(inttostr(i)+' = '+inttostr(a[i]));
  end;
end;