procedure TForm1.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect;
  var DefaultDraw: Boolean);
var
  bitmap:TBitmap;
begin
  bitmap:= TBitmap.Create;
  bitmap.LoadFromFile('C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\MM1.bmp');
  ToolBar1.Canvas.StretchDraw(ARect,bitmap);
  bitmap.Free;
end;

procedure TForm1.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect;
  var DefaultDraw: Boolean);
var
  bitmap:TBitmap;
begin
  bitmap:= TBitmap.Create;
  bitmap.LoadFromFile('C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\MM1.bmp');
  ToolBar1.Canvas.StretchDraw(ARect,bitmap);
  bitmap.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  ToolBar1.ShowCaptions:= True;
  ToolBar1.flat:= true;
end;
end.

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  case (Sender as TToolButton).index of
  0: begin
       ShowMessage('打开程序');
     end;
  1: begin
       ShowMessage('保存程序');
     end;
  end;
end;
end.