[stil]

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const c='0123456789';
var i,j,k:integer;
    s:string;
begin
if Key=#13 then begin
  s:=Edit1.Text;
  memo1.Clear;
  for i:=1 to length(c) do begin
    k:=0;
    for j:=1 to length(s) do
      if c[i]=s[j] then Inc(k);
    if k<>0 then Memo1.Lines.Add(c[i]+'='+IntToStr(k));
  end;
end;
end;