CGI в Делфи

[YaFakir]

Здравствуйте, пытаюсь вывести фигуру с помощью CGI в браузер и не выходит, не подскажите в чем ошибка?

procedure TWebModule4.WebModule4WebActionItem 1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
image:Tbitmap;
jpg:TJpegImage;
stream:Tmemorystream;
begin
Image:=Tbitmap.create;
try
image.Canvas.Ellipse (10, 40, 20, 50);
jpg:=TJpegImage.Create;
try
jpg.Assign(image);
stream:=Tmemorystream.Create;
jpg.SaveToStream(stream);
stream.Position:=0;
response.ContentType:='image/jpeg';
response.ContentStream:=stream;
response.SendResponse;
finally
jpg.Free;
end;
finally
mage.Free;
end;
end;

[YaFakir]

Извиняйте, не там тему создал