ошибка

[Deeller]

Доброго времени суток!
имеется вот такой код

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if ADOTable1.TableName='Изделие' then begin
if DataSource1.DataSet.Fieldbyname('Чертеж').Value='' then
ShowMessage('Чертеж отсутствует!')
else
{$I-}
Image1.Picture.LoadFromFile(DataSource1.DataSet.Fieldbyname('Чертеж').Value);
{$I+}
end;
end;

проблема в том что после добавления новой записи, при клике на нее выскакивает системная ошибка, связанная с отсутствием данных в поле "чертеж", как следствие не может загрузить рисунок по этому адресу, подскажите как избавится от этой проблемы.

[Rin]

А через что ты добавляешь запись : SQL-запрос или функции delphi?

[Gulik]

А что содержится в DataSource1.DataSet.Fieldbyname('Че ртеж').Value ? Если путь к файлу картинки, то существует ли картинка по этому пути?

[Deeller]

суть в том что когда добавляешь новую запись, там еще ничего нету пустое поле, и если переключатся клавиатурой (табом по полям прыгать) то все работает отлично, но если тыкнуть на ячейку мышкойто выполняется выше написанная процедура, и в связи с отсутствием пути к рисунку выдает ошибку что значение null и т.д. и т.п. я во хотел бы узнать можно какнить обойти это?

[Аватар]

if DataSource1.DataSet.Fieldbyname('Чертеж').AsString='' then

[ReportCube]

if DataSource1.DataSet.Fieldbyname('Че ртеж').IsNull then