Проблема с TBitmap

[QunneD]

Собственно неизвестная мне проблема произошла сегодня.
Вообщем написал я процедуру которая создает TBitmap

procedure AddGameGraphics(Graphics : TBitmap; Sprite : WideString; W,H : Integer; Transparent : Boolean);
begin
  Graphics := TBitmap.Create;
  Graphics.Width := W;
  Graphics.Height := H;
  Graphics.LoadFromFile(Sprite);
  if (Transparent) then
  begin
  Graphics.Transparent := True;
  end;
end;

Потом я использую процедуру и пытаюсь сохранить изображение из TBitmap

  AddGameGraphics(gfxMain,'gfx/main01.bmp',32,32,true);
  gfxMain.SaveToFile('test.bmp');

Вылетает ошибка



Если я делаю так

  gfxMain := TBitmap.Create;
  gfxMain.Width := 32;
  gfxMain.Height := 32;
  gfxMain.LoadFromFile('gfx/main01.bmp');
  gfxMain.Transparent := True;
  gfxMain.SaveToFile('test.bmp');

То, соответственно ошибка пропадает... Что я делаю неправильно?

[Neeter]

Ошибка в параметрах, попробуйте так:

procedure AddGameGraphics(var Graphics : TBitmap; Sprite : WideString; W,H : Integer; Transparent : Boolean);

[QunneD]

Ошибка в параметрах

Помогло. Спасибо за помощь