Image auf Form dynamisch mit der Maus at run time erstellen ?

[thomas2009]

Es fehlt was im Code. Ich kann nicht das Project kompilieren. viele Variablen werden als undefiniert bezeichnet obwohl die Variablen schon deklariert !

Delphi-Quellcode:

var
i:Integer;
begin
for i:=0 to ... // bekomme ich trotzdem error : undefinierter i !!!

Code:

Erzeugen
  [Fehler] Unit1.pas(53): Undefinierter Bezeichner: 'ImageArray'
  [Fehler] Unit1.pas(53): Inkompatible Typen
  [Fehler] Unit1.pas(55): Inkompatible Typen
  [Fehler] Unit1.pas(57): Undefinierter Bezeichner: 'BottomRight'
  [Fehler] Unit1.pas(57): ')' erwartet, aber Bezeichner 'Y' gefunden
  [Fehler] Unit1.pas(59): ')' erwartet, aber Bezeichner 'X' gefunden
  [Fehler] Unit1.pas(75): Undefinierter Bezeichner: 'i'
  [Fehler] Unit1.pas(77): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(79): Inkompatible Typen
  [Fehler] Unit1.pas(82): Anweisung erwartet, aber 'PROCEDURE' gefunden
  [Fehler] Unit1.pas(98): Undefinierter Bezeichner: 'IsMouseDown'
  [Fehler] Unit1.pas(99): Undefinierter Bezeichner: 'TopLeft'
  [Fehler] Unit1.pas(100): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(101): Undefinierter Bezeichner: 'BottomRight'
  [Fehler] Unit1.pas(101): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(102): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(107): Undefinierter Bezeichner: 'ImageBoundsRect'
  [Fehler] Unit1.pas(107): Inkompatible Typen
  [Fehler] Unit1.pas(110): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(111): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(112): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(113): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(114): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(115): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(117): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(117): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(118): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(118): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(119): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(119): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(120): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(120): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(125): Undefinierter Bezeichner: 'ImageBoundsRect'
  [Fehler] Unit1.pas(142): Undefinierter Bezeichner: 'IsMouseDown'
  [Fehler] Unit1.pas(143): Undefinierter Bezeichner: 'TopLeft'
  [Fehler] Unit1.pas(144): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(151): Undefinierter Bezeichner: 'IsMouseDown'
  [Fehler] Unit1.pas(153): Undefinierter Bezeichner: 'BottomRight'
  [Fehler] Unit1.pas(153): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(154): Operator oder Semikolon fehlt
  [Fehler] Unit1.pas(162): Undefinierter Bezeichner: 'IsMouseDown'
  [Fehler] Unit1.pas(29): Ungenügende Forward- oder External-Deklaration: 'TForm1.DeleteImages'
  [Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden