var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile('2s.bmp');
bmp.Dormant;
bmp.FreeImage;
bmp.Monochrome := true;
bmp.ReleaseHandle;
bmp.Free;
var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile('2s.bmp');
bmp.Dormant;
bmp.FreeImage;
bmp.Monochrome := true;
bmp.ReleaseHandle;
bmp.Free;