Конвертер bmp из 8 бит в 24 с палитрой

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, Menus, ComCtrls;
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    Button2: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  F, F2, Fp, Fc : File;
  SFile, PFile: String;
  b,b1,b2: byte;
  i, k, j: integer;
  colors: array[0..1023] of byte;
  struct: array[0..26] of string;
 
implementation
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.OpenDialog1.Execute;
OpenDialog1.Filter:=('Bitmap file|*.bmp');
ProgressBar1.Position:=0;
AssignFile(F,Form1.OpenDialog1.FileName);
Reset(F,1);
AssignFile(Fp,'color.pal');
Reset(Fp,1);
 i:=0;
repeat
 BlockRead(Fp,b,1);
  colors[i]:=(b);
  i:=i+1;
until Eof(Fp);
CloseFile(Fp);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.SaveDialog1.Execute;
ProgressBar1.Position:=0;
SFile:=Form1.SaveDialog1.FileName+'new.bmp';
AssignFile(F,Form1.OpenDialog1.FileName);
AssignFile(F2,SFile);
Reset(F,1);
Rewrite(F2,1);
i:=0;
repeat
   BlockRead(F,b,1);
     case i of
     0..9:BlockWrite(F2,b,1);
     10:
     begin
      b:=54; BlockWrite(F2,b,1);
     end;
     11..13:
     begin
      b:=0; BlockWrite(F2,b,1);
     end;
     14..27: BlockWrite(F2,b,1);
     28:
     begin
      b:=24; BlockWrite(F2,b,1);
      end;
     29:
     begin
      b:=0; BlockWrite(F2,b,1);
      end;
     30..53: BlockWrite(F2,b,1);
     54..1077: i:=i;
     else
      begin
       for k:=0 to 2 do begin
           b1:=(colors[b*4+k]);
           BlockWrite(F2,b1,1);
      end;
     end;
    end;
   i:=i+1;
until Eof(F);
end;
end.

Bitmap : TBitmap;
 
Bitmap.PixelFormat := pf24bit;