uses GIFImage; procedure TFm_Stat.DBEdit_FNOChange(Sender: TObject); var myFNO, myFile: string; myGIF: TGIFImage; begin inherited; if TDBEdit(sender).Tag = 0 then exit; myFNO := trim(TDBEdit(sender).Text); if myFNO = '' then exit; myGIF := TGIFImage.Create; try myFile := App_Path + 'Image/Fund_' + myFNO + 'A.gif'; Image_FPA.Picture := nil; if FileExists(myFile) then begin myGIF.LoadFromFile(myFile); Image_FPA.Picture.Assign(myGIF); end; myFile := App_Path + 'Image/Fund_' + myFNO + 'B.gif'; Image_FPB.Picture := nil; if FileExists(myFile) then begin myGIF.LoadFromFile(myFile); Image_FPB.Picture.Assign(myGIF); end; finally myGIF.Free; end; end;