Du kannst das auch so machen (wenn Du keine weitere Verwaltung brauchst):
Delphi-Quellcode:
procedure TForm1.BNachrichtClick(Sender: TObject);
begin
With TForm2.Create(Self) do
begin
Name.Caption := Kliste.Selected.Caption;
Nr.Caption := Kliste.Selected.SubItems[0];
Show;
end;
end;