StringGrid z ComboBoxem problem

Witam!!!

jeden z ostatnich problemów. Mam kontrolkę StringGrid a w niej pole ComboBox.
Teraz mam taki problem: gdy wchodzę do Comboboxa i nie wybiorę żadnej z opcji tylko przejdę do następnego pola StringGrida, to automatycznie wybiera mi pierwszą pozycję z Comboboxa ( ComboBox.Items.Strings[0]), gdy wybiorę z ComboBoxa jakąś pozycję i opuszczę to pole, wstawia wybrany prze zemnie element, ale gdy wrócę z powrotem do tej samego pola StringGrida (załóżmy, że ComboBox miał taką listę pozycji :anime, video, programy, a wybraną pozycją były programy) i nie wybiorę nic listy, tylko przejdę dalej to wstawia mi 1 element ComboBoxa czyli anime.Tak jest teraz, a chciałbym, aby po opuszczaniu pola bez wybierania pozycji, pozostawał element, który już był.
Wstawiam tutaj procedurę ComboBox1OnExit:

procedure TForm1.ComboBox1Exit(Sender: TObject);
Var
liczba:integer;

begin
Liczba:=ComboBox1.ItemIndex;
if (StringGrid1.Cells[3,StringGrid1.Row] = '') and (Liczba = -1) then
begin
StringGrid1.Cells[3,StringGrid1.Row]:=ComboBox1.Items.Strings[0];
ComboBox1.ItemIndex:=-1;
end
else
begin
if ComboBox1.ItemIndex =-1 then
StringGrid1.Cells[3,StringGrid1.Row]:=ComboBox1.Items.Strings[0]
else
StringGrid1.Cells[3, StringGrid1.Row]:= ComboBox1.Items[ComboBox1.ItemIndex];

  ComboBox1.ItemIndex:=-1;

end;

ComboBox1.Visible :=False;
StringGrid1.SetFocus;
ComboBox1.Text:= 'Wybierz opcję';
end;

P.S. Jeszcze jedna rzecz, za każdym razem, gdy wchodzę do comboboxa wyświetla mi Wybierz opcję i chciałbym, aby tak zostało.