Längster Eintrag einer Listbox ermittel?

[thiagojonas]

So habe was geschrieben, was mir die Differenz zum längsten Wert ausspuckt.

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var ausgabe :string;
var ausgabe2 :string;
var i:integer;
var anzahl:integer;
var anzahl2:integer;
var laenge:integer;
var lösung:integer;
var exe:string;
var target:string;
begin
laenge := 0;
for i := 0 to Listbox1.Items.Count - 1 do
  begin
  exe := Listbox1.items[i];
if length(exe)> laenge then
  begin
    laenge:=length(exe);   // Längste Wert wird in der Listbox herausgesucht.
    target:=exe;
end;
 ausgabe := target;    //Ausgabe erhält den längsten Wert der Listbox
 anzahl:= Length(ausgabe); //Anzahl erhält die Anzahl der Zeichen des längsten Wertes in der Listbox

 ausgabe2 := Listbox1.items.Strings[i];
 anzahl2:= Length(ausgabe2);// Anzahl der Zeichen der Werte in der Listbox
 lösung := anzahl - anzahl2;  //Subtrahiert Anzahl der Zeichen des längsten Wertes mit der Anzahl der Zeichen der anderen Werte
 showmessage( IntToStr(lösung));// Zeigt das Ergebnis
 end;
end;

Mann müsste dann die Variable "Lösung" nehmen und dann "xLösungen * ' ' (Leerzeichen), damit die alle eine Länge erhalten.
Aber das mache ich morgen, nach der Schule

Kann mir jemand sagen ob der Ansatz so richtig ist?