Informationen aus einem ClientDataSet auslesen

[Koloss]

Delphi-Quellcode:

Button := TButton.Create(Self);
Button.Parent := self;
Button.Left := 10;
Button.Top := 10; 
Button.OnClick := MyOnClick
Button.Name := 'Button' + IntToStr(Nummer);

Delphi-Quellcode:

procedure TMyForm.MyOnClick(Sender: TObject)
begin
 //MyProc
end

procedure TMyForm.FormDestroy(Sender: TObject)
var i : Integer;
begin
  for i := 0 to 19 do // 19 = ButtonAnzahl - 1
  begin
    Button := TButton(FindComponent('Button' + IntToStr(Nummer)));
    if Button <> nil then
      Button.Free;
  end;
end