[Страдалецъ]

Код:

ComboBox1.ItemIndex:=ComboBox1.Items.Count-1;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select*from Person');
Query1.Open;

вот далее два оператора не в тему.

Код:

end;
 begin

Код:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add ('Select*from Person');
if ComboBox1.ItemIndex<combobox1.Items.Count-1 then;