3 Edits, 3 Labels und 3 Listboxen

[Dax]

Ich gehe mal davon aus, dass Edit1.Tag 1 ist, Edit2.Tag ist 2 usw.

Delphi-Quellcode:

procedure TForm1.EditExit(Sender: TObject);
begin
  with Sender as TEdit do
    TLabel(FindComponent('Label' + IntToStr(Tag))).Caption := Text;
end;