@fapsons, schliesse deinen Code mal bitte in Delphitags ein, dann kann man das auch besser lesen.
[delphi]
procedure Foo();
var a, b, c: Byte;
begin
//...
end;
[/delphi]
wird dann zu:
Delphi-Quellcode:
procedure Foo();
var a, b, c: Byte;
begin
//...
end;