Kutsumisongelma

procedure TForm1.Toistuva(Sender: TObject);
begin
showmessage('Täällä toistuva');
end;

procedure TForm1.Homma(Sender: Tobject);
begin
toistuva(sender);
end;

Toisenlainen ratkaisu voisi olla että
toistuva työ tehdään omassa aliohjelmassa
joka on esitelty private-osiossa
mutta tämä on vain joissakin tapauksissa parempi kuin tuo
aiemmin esitetty.


TForm1 = class(TForm)
. . .
procedure Toistuva(Sender: TObject);
procedure Homma(Sender: TObject);
. . .
private
{ Private declarations }
procedure TeeToistuva;
public
{ Public declarations }
end;


procedure TForm1.Toistuva(Sender: TObject);
..
begin
...
TeeToistuva;
...

procedure TForm1.Homma(Sender: TObject);
..
begin
...
TeeToistuva;