Neue Btmap in Millimiter statt in Pixel erstellen ?

[thomas2009]

Hallo

ich erstelle ein neues Bitmap in Pixel nur

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap:=tBitmap.Create;
Bitmap.PixelFormat:=pf32bit;
Bitmap.width:=800;
Bitmap.height:= 500;
image1.picture.Bitmap.assign(Bitmap);
Bitmap.free;
end;

Nun möchte ich das neue Bitmap in mm erstellen

wie kann ich mit Hilfe der Bildschirm-Auflösung (pixel/mm) meine
Bitmap exakt erstellen ?