помогите разобраться с ошибкой

[Lokos]

Почему данный код выводит следующую ошибку
EAccessViolation with massage 'Access violation at adress 004adc16 in module...
Вот код
procedure TForm1.Button2Click(Sender: TObject);
var
jpg: TJpegImage;
ms: TStream;
begin
adotable1.Open;
adotable1.First;
jpg := TJpegImage.Create;
while not adotable1.Eof do
begin
if adotable1.Fields[1].Value=4 then
ms :=(ADOTable1.CreateBlobStream(TBlob Field(ADOTable1.FieldByName('Фото') ), bmRead));
jpg.LoadFromStream(ms);
adotable1.Next;
end;
Image2.Picture.Bitmap.Assign(jpg);
jpg.Free;
ms.Free;
end;

10:42

помоему понял в чем ошибка
while not adotable1.Eof do
begin
if adotable1.Fields[1].Value=4 then
ms :=(ADOTable1.CreateBlobStream(TBlob Field(ADOTable1.FieldByName('Фото') ), bmRead));
jpg.LoadFromStream(ms);
adotable1.Next;
end;
изменить на
while not adotable1.Eof do
begin
if adotable1.Fields[1].Value=4 then
begin
ms :=(ADOTable1.CreateBlobStream(TBlob Field(ADOTable1.FieldByName('Фото') ), bmRead));
jpg.LoadFromStream(ms);
end;
adotable1.Next;
end;

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор