[fen1ks]

Сообщение от lmikle

Что-то я не вижу в твоем коде создание ProcessedBitmap и выставления его размеров...

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  OriginalBitmap.LoadFromFile('0003.bmp');
  ProcessedBitmap.width:=800;
  ProcessedBitmap.height:=600;
  createbmp;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   OriginalBitmap:=TBitmap.Create;
   ProcessedBitmap:=TBitmap.Create;

end;

если вот так, то по нажатию на кнопку ничего не происходит и выдает
Process is not accessible
Thread Exit: Thread ID: 3852. Process Project1.exe (3536)

вот юнит с картинкой
http://www.megaupload.com/?d=XX55QNQD