Сравнить

[delfin07]

Вот код
procedure TForm4.Image1Click(Sender: TObject);
label lll;
begin
lll:a:=random(1000000);

if OpenPictureDialog1.Execute then
image1.Picture.LoadFromFile(OpenPic tureDialog1.FileName);
dbedit1.Text:='foto\'+inttostr(a)+' .jpg';

//надо проверить если картинка скатим именем в базе,если нет чтоб рандомом задавала другое имя типа какта так dbedit1.Text=datamodule2.ADOQuery.. .......// then goto lll;

end;