index wird ohne aufruf auf 0 gesetzt

[Nicodius]

das gleiche wie vorher

Delphi-Quellcode:

var
  Form1: TForm1;

  iindex, iindex2 : Integer;

da werden die globalen definiert

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  selected := TImage.Create(Form1);
  zurueck := TBitmap.Create;
  zurueck := Canvas.Brush.Bitmap;
  iindex := 0;
  iindex2 := 0;
  Image2.Picture.Bitmap.TransparentColor := clwhite;
  actBuild := -1;
end;

heir initialisiert