Dann deklarier mal deine Procedure:
Delphi-Quellcode:
public
{ Public declarations }
procedure sichtbareTageeins;
end;
und die Definition sollte wie folgt aussehen:
Delphi-Quellcode:
procedure TForm1.sichtbareTageeins;
var i: Integer;
...
Wie schauts damit aus?