[Oracle][dbExpress] Dodawanie elementów do tabeli

Mam taką procedurę która ma za zadanie dodawać element do tablicy Kategorie

procedure TForm1.Button1Click(Sender: TObject);
var id,i:integer;
    nazwa,opis:string;
begin
    if (Edit1.Text<>'') then
    begin
        nazwa:=''''+Edit1.Text+'''';
        opis:=''''+Edit2.Text+'''';
        SQLQuery1.Close;
        SQLQuery1.SQL.Clear;
        SQLQuery1.SQL.Add('INSERT INTO Kategorie VALUES (kate.nextval,'+nazwa+','+opis+')');
        try
           SQLQuery1.ExecSQL;
        except
           showmessage('Wystąpil bląd podczas wstawiania rekordu. Sprawdź, czy wszystkie pola są poprawnie wypelnione')
        end;
    end;
    Button1Click(Sender);
    Edit1.Text:='';
    Edit2.Text:='';
    SQLQuery1.Active:=False;
end;

procedura działa :/ tylko jest jeden mały problem - zamiast dodawać jeden element dodaje(te same elementy wpisane przeze mnie)
do indeksu 999 .
Zna ktoś rozwiązanie tego problemu ?

znalazłem rozwiązanie problemu można zamknąć :-) :-)