Ich shcätze mal das er nicht weis was eine Klasse ist.
Delphi-Quellcode:
Type TWindrad = Class
private
// Alle Variablen die dein Windrad benutzt hier rein
Public
Constructor Create;
destructor Destroy;
end;
..
Constructor Twindrad.create;
begin
// Hier alles initialisierende Rein
// Also dein Timer ...
// Wie bei Tform.create;
end;
Destructor Twindrad.Destroy;
begin
// Hier alles wieder Freigeben, wie bei TForm.destroy;
end;
Dann gehst du her und machst in deinem Probramm wenns sein mus über Implementation
W1,w2:Twindrad;
Bei Form1.create
Delphi-Quellcode:
w1 := Twindrad.create;
w2 := Twindrad.create;
und bei Form1.close oder Destroy
Und schon hast du 2 Windräder aber nur eins geproggt
.