danke, klappt super!
nur das Bild flackert ziemlich, da das Bild dauernd refresht oder neu gezeichnet werden muss.
sodass die schlange sich bewegt.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
schlange;
if not ende then
paintbox1.repaint;
//paintbox1.Refresh;
end;