procedure Form1.XXXOnClick (Sender: TObject);begin Image1.Picture.LoadFromFile (Table1Path1.AsString); Image2.Picture.LoadFromFile (Table1Path2.AsString); Image3.Picture.LoadFromFile (Table1Path3.AsString);end;