Procedure TMianForm.Getpicture;
var
Fjpg : TJpegImage;
FStream :TResourceStream ;
begin
Fjpg:=nil;
Try
Fjpg :=TJpegImage.Create ;
FStream := TResourceStream.Create (Hinstance,'myjpg1',RT_RCDATA) ;
FJpg.LoadFromStream (FStream) ;
SpeedButton1.Glyph.Assign(Fjpg); //采购管理
FStream := TResourceStream.Create (Hinstance,'myjpg2',RT_RCDATA) ;
FJpg.LoadFromStream (FStream) ;
SpeedButton2.Glyph.Assign(Fjpg); //销售管理
Fjpg.free;
end