TÉMA:

procedure TForm1.frReport1EnterRect(Memo: TStringList; View: TfrView);
var
  FileName: String;
begin
  if (View is TfrPictureView) then
  begin
    if (View as TfrPictureView).Name = 'Picture1' then  //Picture1: report-ban a kép objektum neve
    begin
      FileName := SQLQuery.FieldByName('PATH_OF_IMAGE').AsString);
      (View as TfrPictureView).Visible := FileExists(FileName);
      if (View as TfrPictureView).Visible then
        (View as TfrPictureView).Picture.LoadFromFile(FileName);
    end;
  end;
end;