1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var bild: TBitmap;
      x, y: integer;

    buffy: ^TBitmap;

begin

  bild := TBitmap.Create;

  // reserviert Speicher für Bitmap >1,4MByte
  GetMem(buffy, $1F0000);

  // Schreibt Bild in den Speicher; buffy ist Pointer auf das Bild
  cam.imageget(buffy^, x, y); //                                                    <- FUNKTION DIE DAS VIDEOBILD LIEFERT

  // Soll Bitmap darstellen
  PaintBox1.Canvas.Draw(0,0,buffy^); //                                       <- Stelle an der das Programm abbricht

  // Zeigen Weite und Höhe des Bitmap an
  ShowMessage('Weite: '+inttostr(x)+' Höhe: '+inttostr(y));

  FreeMem(buffy);

end;					

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

var bild: TBitmap; 

begin 

bild := TBitmap.Create; 
try

  cam.imageget(bild); 

  PaintBox1.Canvas.Draw(0,0,bild); // du musst hier schon ein gültiges TPicture object übergeben, und nicht irgendeinen selbst gebauten speicherbereich

  ShowMessage('Weite: '+inttostr(bild.width)+' Höhe: '+inttostr(bild.height)); 
finally
  bild.free;
end;