конвертировать bmp в ico.

[x128]

подправил процедуру:

procedure SaveIcon(fname: string);
type
  TIconRec = packed record
    Width: byte;
    Height: byte;
    Colors: byte;
    Reserved: byte;
    Planes: word;
    BPP: word;
    DIBSize: dword;
    DIBOffset: dword;
  end;
  TCursorOrIcon = packed record
    Reserved: word;
    wType: word;
    Count: word;
  end;
var
  i: integer;
  ico: file of byte;
  hdr: TCursorOrIcon;
  irec: TIconRec;
  binfo: TBitmapInfoHeader;
  mask: TBitmap;
begin
  hdr.Reserved:=0;
  hdr.wType:=1;
  hdr.Count:=1;
  AssignFile(ico, fname);
  Rewrite(ico);
  BlockWrite(ico, hdr, SizeOf(hdr));

  if bmp.Width<256 then irec.Width:=bmp.Width else irec.Width:=0;
  if bmp.Height<256 then irec.Height:=bmp.Height else irec.Height:=0;
  irec.Colors:=0;
  irec.Reserved:=0;
  irec.Planes:=0;
  irec.BPP:=32;
  irec.DIBSize:=(bmp.Width*bmp.Height*4)+(bmp.Width*bmp.Height div 8);
  irec.DIBOffset:=SizeOf(hdr)+SizeOf(irec);
  BlockWrite(ico, irec, SizeOf(irec));

  binfo.biSize:=SizeOf(binfo);
  binfo.biWidth:=bmp.Width;
  binfo.biHeight:=bmp.Height*2;
  binfo.biPlanes:=1;
  binfo.biBitCount:=32;
  binfo.biCompression:=BI_RGB;
  binfo.biSizeImage:=bmp.Width*bmp.Height*4;
  binfo.biXPelsPerMeter:=0;
  binfo.biYPelsPerMeter:=0;
  binfo.biClrUsed:=0;
  binfo.biClrImportant:=0;
  BlockWrite(ico, binfo, SizeOf(binfo));
  for i:=bmp.Height-1 downto 0 do BlockWrite(ico, bmp.ScanLine[i]^, bmp.Width*4);

  mask:=TBitmap.Create;
  mask.Monochrome:=true;
  mask.Height:=bmp.Height;
  mask.Width:=bmp.Width;
  mask.Canvas.Brush.Color:=clBlack;
  mask.Canvas.FillRect(mask.Canvas.ClipRect);
  for i:=mask.Height-1 downto 0 do BlockWrite(ico, mask.ScanLine[i]^, mask.Width div 8);
  mask.Destroy;

  CloseFile(ico);
end;

[StartMis]

ага вот теперь работает.большое спасибо.