Code:
procedure [color=#ff0000]TForm1.[/color]richtungoben(zahl:integer);
begin
oben:=random(5)+zahl;
end;
procedure [color=#ff0000]TForm1.[/color]richtunglinks(zahl:integer);
begin
links:=random(5)+zahl;
end;
PS: Methoden haben im published-Abschnitt eigentlich nichts zu suchen (außer EventHandler für den Form-Designer), verschiebe sie lieber in den private-Teil.