if OpenPictureDialog1.Execute then with query1 do begin close; sql.Clear; sql.Add('insert into picture (imagedata,filepath) values(:image,:filename)'); parambyname('image').LoadFromFile(OpenPictureDialog1.FileName,ftblob); parambyname('filename').AsString:=OpenPictureDialog1.FileName; execsql;