После Name убери пробел. У меня всё работает.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Table1.First;
for I := 0 to Form1.Table1.RecordCount-1 do
begin
ComboBox1.Items.Add(Table1.FieldByName('Name').AsString);
Form1.Table1.Next;
end;
end;