MSSQL & Billed

Hvordan loader jeg et billed ind i et image object

Jeg har prøvet, men virker ikke!

procedure TForm1.FormCreate(Sender: TObject);
var
D1: TADODataset;
begin

  D1 := TADODataSet.Create(self);
  D1.Connection := ADOConnection1;
  D1.Close;
  D1.CommandText := 'SELECT * FROM Navn ORDER BY Navn';
  D1.Open;
  D1.Recordset.MoveFirst;
  listbox1.Clear;

  while not D1.Eof do begin
    listbox1.Items.Add(D1.FieldByName('Navn').AsString);
    Image1.Picture.LoadFromFile(D1.FieldByName('pic').AsString);
    D1.Next;
  end;
  D1.Free;

end;