谁能把这几句VB语言转化为Delphi

Question

Dim Images As New Collection
Dim NextImage As CWIMAQImage
Set NextImage=New CWIMAQImage
Images.Add NextImage
Set NextImage=Images(ImageNumber+1)

Answer 1

var
  Images: Collection;
  NextImage: CWIMAQImage;
begin
  Images := Collection.Create;
  NextImage := CWIMAQImage.Create;
  Images.Add(NextImage);
  NextImage := Images(ImageNumber + 1);
end;

Answer 2

var 
  Images: Collection; 
  NextImage: CWIMAQImage; 
begin 
  Images := Collection.Create; 
  NextImage := CWIMAQImage.Create; 
  Images.Add(NextImage); 
  NextImage := Images(ImageNumber + 1); 
end;