консольный png рисовальщик

[skyman1221]

Здравствуйте уважаемые !

мне над сворганить консольную прогу
проге передается через бат файл консольный аргумент в виде имени png файла
типа Project1.exe 0011.png

в файле нужно нарисовать одну черную точку по заданным координатам
тоесть точку нужно ДОБАВИТь к существующему изображению

у меня компилятор delphi 7
поэтому я скачал дополнительно pngimage.pas
он вроде пашет, картинки png в форму загружал

вот я написал че то вроде

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  pngimage,Graphics,SysUtils,
  Windows;
 
var
png:TPicture;
 
begin
 
if FileExists(ParamStr (1)) then begin
png:= TPicture.Create;
png.Loadfromfile(ParamStr (1));
setpixel(png.Bitmap.Handle,1,1,535);
png.SaveToFile(ParamStr (1));
end;
 
end.

ошибок не выдает но после выполнения png файл оказывается равен 0 килобайт... короч прога все стирает..

что посоветуете?

[JTG]

program Project2;

{$APPTYPE CONSOLE}

uses
  pngimage,Graphics,SysUtils,
  Windows;

begin
  if FileExists(ParamStr(1)) then
  with TPNGObject.Create do
  begin
    Loadfromfile(ParamStr(1));
    Pixels[100,100] := clBlack;
    SaveToFile(ParamStr(1));
    free;
  end;
end.

[skyman1221]

JTG огромное спасибо !
все пашет