DBGrid resim ön izleme

[Lord_Ares]

Şöyle bir çözüm buldum ama pek sağlıklı değil araştırıyorum . 

procedure TFSTOK_KARTI.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=VK_UP) or (key=VK_DOWN)then begin


    if FDATA_M.QSTOK_KARTLARI.RecordCount>0 then BEGIN

      if  FDATA_M.QSTOK_KARTLARI.FieldByName('RESIM_YOLU').AsString='' then FSTOK_KARTI.IMAGE_STOKKART.Picture:=nil  else
          begin
           if fileexists(FDATA_M.QSTOK_KARTLARI.FieldByName('RESIM_YOLU').AsString) then
              FSTOK_KARTI.IMAGE_STOKKART.Picture.LoadFromFile(FDATA_M.QSTOK_KARTLARI.FieldByName('RESIM_YOLU').AsString);
          end;
   END;
 end;
end;