Längster Eintrag einer Listbox ermittel?

[thiagojonas]

Guten abend

Wie kann ich denn den längsten Eintrag einer Listbox anzeigen lassen? Z.B. im TLabel.

Mein Ansatz:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var i:integer;
var target:string;
begin
Label1.Caption := EmptyStr;
for i := 0 to form2.listbox1.Items.Count -1 do
begin
target := Label1.Caption + listbox1.items.Strings[i] + sLineBreak;
Label1.Caption := target;
  end;
end;

Jetzt habe ich alle einezel in ein TLabel untereinander angezeigt bekommen.

Ich möchte nänmlich dem längsten Eintrag folgendes hinzufügen: "____________________________"
Weil die namen unterschiedlich lang sind will ich daduchr versuchen die Unterstriche genau untereinander zu kriegen.
So das es ungefähr so aussieht:



Danke im voraus.