delphi中如何显示JPG 图片

打开图片（.jpg和.bmp都可以）
var
bmp:TBitmap;
jpg:TJpegImage;
temp:string;
sum:string;
i,j:integer;
jj,bb:boolean;
begin
if openpicturedialog1.Execute then
begin
edit1.Text:=openpicturedialog1.FileName;
bmp:=TBitmap.create;
jj:= AnsiEndsText('.jpg',edit1.Text);//看看是jpg文件还是bmp文件
bb:= AnsiEndsText('.bmp',edit1.Text);
if jj then
begin
Jpg:=TJpegImage.Create;
Jpg.LoadFromFile(openpicturedialog1.FileName);
bmp.assign(jpg);
jpg.free;
key:=extractfilename(edit1.Text);//将jpg转化bmp
sum:=key;
i:=length(sum);
i:=i-4;
temp:='';
for j:=1 to i do
begin
temp:=temp+sum[j];
end;

key:=temp;
key:=key+'.bmp';

bmp.savetofile(key);//转化结束，因为mysql不能存jpg
biao:=1;
end
else if bb then
begin
bmp.LoadFromFile(openpicturedialog1.FileName);
key:=extractfile