Streich doch mal das "begin" und das "end;" in der Mitte des Quellcodes
//edit: zur erklärung:
die Procedure wird mit
procedure xy eingeleitet und mit
begin begonnen. Dadurch, dass du jedoch ein
end eingefügt hast und dann noch einen weiteren Codeblock ins OnTimer schreiben willst, den du einzeln mit
begin und
end; verpackst, erstellst du einen VÖLLIG neuen Codeblock, der gar nicht mehr zum OnTimer event gehört, da das OnTimer ja mit
end; abgeschlossen war.
//edit2: Tippfehler
//edit3: Schlüsselwort mit den Abfragen ist [
oh]if, then, else[/
oh]