Dann lag ich ja in #30 nicht schlecht.
Dreh die erste Zeile um und lass die zweite weg und du hast Teil 1 der Aufgabe erfüllt:
Delphi-Quellcode:
ImageFileName := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
//Image1.Picture.SavetoFile(ImageFileName);