неправильно берутся данные из Dll

[Armageddets]

Доброго времени суток, уважаемые эксперты. Я создал длл в делфи такго вида:

library SetkaDll;


uses
  Windows,SysUtils,
  Classes,Graphics;

procedure Setka(RazmerCell,RazmerX,RazmerY,MX,MY,Tolshina:integer; SetkaColor:TColor; Buf:TBitmap); stdcall;
var i:integer;
begin

 Buf.Canvas.Pen.Color:=SetkaColor;
 Buf.Canvas.Pen.Width:=Tolshina;

 for i:=0 to RazmerY-1 do
 begin
 Buf.Canvas.MoveTo(0-MX,i*RazmerCell-MY);
 Buf.Canvas.LineTo(RazmerX*RazmerCell-MX,i*RazmerCell-MY);
 end;

 for i:=0 to RazmerX-1 do
 begin
 Buf.Canvas.MoveTo(i*RazmerCell-MX,0-MY);
 Buf.Canvas.LineTo(i*RazmerCell-MX,RazmerY*RazmerCell-MY);
 end;

end;

exports
  Setka;


begin
end.

Затем сбросил длл в папку с программой. и Подключил процедуру в проект. Но при запуске этой проыедуры появляется сообщение вида EAcces Violation Adress. Я подозреваю что берутся не те данные, которые должны. Скажите что я делаю не так? Вот кож самого проекта:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Buf:TBitmap;

implementation
procedure Setka(RazmerCell,RazmerX,RazmerY,MX,MY,Tolshina:integer; SetkaColor:TColor; Buf:TBitmap); stdcall; external 'SetkaDll.dll';
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(StrPas(MyBoolToStr(False)));
end;

procedure TForm1.Button2Click(Sender: TObject);
var RazmerCell,RazmerX,RazmerY,MX,MY,Tolshina:integer; SetkaColor:TColor;
begin
  Buf:=TBitmap.Create;
  Buf.Width:=1000;
  Buf.Height:=1000;

  RazmerCell:=32;
  RazmerX:=10;
  MX:=0;
  Tolshina:=1;
  SetkaColor:=clred;
  Setka(RazmerCell,RazmerX,RazmerX,MX,MX,Tolshina,SetkaColor,Buf);

  form1.Canvas.Draw(0,0,buf);
end;

end.

Заранее благодарен всем за советы...

From Stilet: В следующий раз код оформляй по правилам форума.

[Человек_Борща]

Оформите код соответствующим тегом.

[Armageddets]

Чтобы не напрягать я лучше скину сразу и длл и проект. Я подозреваю что код надо между тегами <CODE>?

[саша40]

Ошибка доступа к данным по адресу, вот что выдает. Это значит, что либо адрес уже занят(находится в обработке), либо его нет!

[Человек_Борща]

Что-то мне подсказывает что нельзя просто так взять и передать TBitMap как класс. Максимум это HBITMAP. DLL его создает, а вы уже отвечаете ха жизнь этого HBITMAP'а в последующем.

[Stilet]

нельзя просто так взять и передать TBitMap как класс

Почему нельзя? Я классы в ДЛЛ передавал и ничего... Работало.
Вот если бы автор прошелся по проекту отладкой...