Используя ReportBuilder написал следующий код

procedure TForm2.ppReport1BeforePrint(Sender: TObject);
begin
If Form1.ADOTable1.FieldByName('Постоянный').Value = 'True' then
begin
ppImage1.Picture.LoadFromFile('post.jpg');
if FileExists(Form1.ADOTable1.FieldValues['Фотография']) then
ppImage2.Picture.LoadFromFile(Form1.ADOTable1.FieldValues['Фотография']);
end else
Begin
ppImage1.Picture.LoadFromFile('vrem.jpg');
if FileExists(Form1.ADOTable1.FieldValues['Фотография']) then
ppImage2.Picture.LoadFromFile(Form1.ADOTable1.FieldValues['Фотография']);
ppLabel2.Caption := FormatDateTime('dd.mm', Form1.ADOTable1.FieldValues['Дата']);
end;
end;


В поле фотография хранится путь к фотографиям.
В отчёте все картинки одни и теже а должны быть разные!!!