1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Procedure ZeichneAlles;
begin
    Image1.Canvas.Lineto(10, 10);
    Application.ProcessMessages; //Heißt soviel wie "Verarbeite Nachrichten" ;)
    sleep(1000);

    Image1.Canvas.Lineto(20, 20);
    Application.ProcessMessages;
    sleep(1000);

    Image1.Canvas.Lineto(30, 30);
    Application.ProcessMessages;
    {...etc}
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure animation(filename: string);
var episode, episodenanzahl, laengepfad: integer;
var lfdnr, pfad: string;
begin
pfad:= filename;
episodenanzahl:= 8 ;
episode:= 1;
laengepfad:= length(pfad);
lfdnr:= '1';

while (episode<(episodenanzahl+1)) do
begin
  pfad[laengepfad-4]:= lfdnr[1];
  print1u.Xls_To_StringGrid(form1.stringgrid1, pfad);
  print1u.lesetabelle(form1.stringgrid1);
  episode:= episode+1;
  lfdnr:= inttostr(episode);
  sleep(1000);
end;
form1.Edit2.Text:= pfad;


procedure zeichnestern(x,y: real);
var px, py, dicke: integer;
var farbe: Tcolor;

begin

  dicke:= strtoint(form1.edit3.text);
  farbe:= form1.colorbox1.selected;
  form2.Image1.canvas.brush.Color:= farbe;
  form2.Image1.canvas.Pen.Color:= farbe;
  px:= umrechnen(x);
  py:= umrechnen(y);

  form2.Image1.Canvas.roundrect(px-dicke,py-dicke,px+dicke,py+dicke,100,100);
  form2.edit1.text:= inttostr(px);
  form2.edit2.text:= inttostr(py);