error while..do

[odrack]

Que tal!! les doy las gracias a los dos por haberme hecho entender que no necesitaba el ciclo while..do, simplemente habia que igualar los campos y comparar, he comprendido el problema y lo he solucionado gracias a ustedes!!, asi es como quedo el codigo:

Código Delphi [-]
Begin
             query3.close;
             query3.sql.clear;
             query3.sql.add('SELECT * FROM usuarios where usuario='+quotedstr(edit1.Text));
             query3.ExecSQL;
             query3.Open;
               if edit1.text=dbedit2.text then
                  showmessage('El usuario ya existe')
                   else
                    begin
                     query1.Close;
                     query1.SQL.Clear;
                     query1.SQL.Add('insert into usuarios (usuario, password)');
                     query1.SQL.Add('values('+quotedstr(edit1.Text)+','+quotedstr(edit2.Text)+')');
                     query1.ExecSQL;
                     query3.close;
                     query3.Open;
                     edit1.Text:='';
                     edit2.Text:='';
                     showmessage('Se ha agregado con exito');
                    end;
          end;

Con esto funciona de maravilla, lo unico que tube que hacer es igualar los campos a un dbedit.text que ya tenia anteriormente para una consulta, obviamente primero seleccione los datos e hice que se movieran en el dbedit asi comparo los datos entre EDIT1 y DBEDIT si son iguales que me muestre que ya esta el usuario de lo contrario que lo agrege.

Gracias nuevamente!!