1:

 function func(Eingangszahl:integer):integer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TForm9.Button1Click(Sender: TObject);

  function GetCodedString(uNumbers: String): String;
  var
    i, Count: Integer;
    Current: Char;
  begin
    // Alles auf leere Werte initialisieren
    Result := '';
    uNumbers := uNumbers + #0;
    Count := 0;
    Current := #0;
    i := 0;
    // Alle Buchstaben durchgehen
    while i <= Length(uNumbers) do
    begin
      Inc(i);
      if uNumbers[i] = Current then
        // Wenn der Buchstabe immer noch der selbe ist, nur die Anzahl erhöhen
        Inc(Count)
      else
      begin
        // Wenn es ein anderer Buchstabe ist und bereits Buchstaben gezählt
        // wurden, die Werte dem Ergebnis hinzufügen:
        if Count > 0 then
          // 1.
        // Der aktuell gezählte Buchstabe ist jetzt der an Position i:
        // 2.
        // Und der ist bisher einmal vorgekommen:
        // 3.
      end;
    end;
  end;

begin
  Edit1.Text := GetCodedString(Edit1.Text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
var
intfeld:TIntfeld;
a:integer;
Ezahl:string;// Als String behandelt es sich schneller und hat keine Begrenzung
Ziff:byte;
El:integer; //Länge der zahl welche als String in Ezahl steckt
begin
for a:=0 to 9 do intfeld[a]:=0;
try
 Ezahl:=eedit.Text;
 El:=..;//Länge der Zahl ermitteln die in Ezahl steckt.
 for a:=1 to El do
 begin
  ziff:=...;//ziffer an Position a ermitteln
  inc(...);
 end;
 EEdit.Text:=buildoutput(intfeld);//Fies von mir, selbst geschrieben, verrate ich nicht
except
 Showmessage('Vermutlich keine Zahl eingegeben');
end;					

1:

type TIntfeld=array[0..9] of integer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TForm9.Button1Click(Sender: TObject);

  function GetCodedString(uNumbers: String): String;
  var
    i, Count: Integer;
    Current: Char;
  begin
    // Alles auf leere Werte initialisieren
    Result := '';
    uNumbers := uNumbers + #0;
    Count := 0;
    Current := #0;
    i := 0;
    // Alle Buchstaben durchgehen
    while i <= Length(uNumbers) do
    begin
      Inc(i);
      if uNumbers[i] = Current then
        // Wenn der Buchstabe immer noch der selbe ist, nur die Anzahl erhöhen
        Inc(Count)
      else
      begin
        // Wenn es ein anderer Buchstabe ist und bereits Buchstaben gezählt
        // wurden, die Werte dem Ergebnis hinzufügen:
        if Count > 0 then
          Result := Result + // Count und Current sind ja die beiden Zahlen, die du willst
        // Der aktuell gezählte Buchstabe ist jetzt der an Position i:
        Current := 
        // Und der ist bisher einmal vorgekommen:
        Count := 
      end;
    end;
  end;

begin
  Edit1.Text := GetCodedString(Edit1.Text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

type TIntfeld=array[0..9] of Integer;

procedure TForm1.Button2Click(Sender: TObject);
begin
close();
end;

procedure TForm1.Button1Click(Sender: TObject);
var
intfeld:TIntfeld;
a,i:Integer;
Ezahl,buffstring,teilstring:String;
Ziff:Byte;
El:Integer;
begin
buffstring:='';
teilstring:='';

for a:=0 to 9 do intfeld[a]:=0;

Ezahl:=Edit1.Text;
El:=Length(Ezahl);
if Edit1.Text='' then Showmessage('keine zahl eingegeben')
else
  for a:=1 to El do
  begin
  ziff:=StrToInt(Ezahl[a]);//
  inc(intfeld[ziff]);//
  end;

  for i:=0 to 9 do

  begin
  if intfeld[i]=0 then
  begin
  buffstring:=buffstring
  end
  else
  begin
  teilstring:=IntToStr(intfeld[i])+ezahl[i];
  buffstring:=buffstring+teilstring;
  end;
  Edit1.Text:=buffstring;
  Memo1.Text:=buffstring;
  end;


end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

for i:=0 to 9 do
begin
 if intfeld[i]=0 then
 begin
  buffstring:=buffstring
 end
 else
 begin
  teilstring:=IntToStr(intfeld[i])+ezahl[i];
  buffstring:=buffstring+teilstring;
 end;
 Edit1.Text:=buffstring;
 Memo1.Text:=buffstring;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

for i:=0 to 9 do
begin
 if intfeld[i]=0 then
 begin
  buffstring:=buffstring
 end
 else
 begin
  teilstring:=IntToStr(intfeld[i])+inttostr(i);
  buffstring:=buffstring+teilstring;
 end;
 Edit1.Text:=buffstring;
 Memo1.Text:=buffstring;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

for i:=0 to 9 do
 if intfeld[i]<>0 then
 begin
  teilstring:=IntToStr(intfeld[i])+inttostr(i);
  buffstring:=buffstring+teilstring;
 end;
Edit1.Text:=buffstring;
Memo1.Text:=buffstring;