[Asinkrit]

Теперь точно правильно.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array[0..9]of byte;
  i:byte;
begin
  for i:=0 to 9 do a[i]:=0;
  for i:=1 to length(Edit1.Text) do
    Inc(a[strtoint(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;