q:='SELECT nname, vname FROM user WHERE nname='+aps+edit1.text+aps+' AND vname='+aps+edit2.text+aps+'';
    FResult:=FMysql.query(q, true, ex);
    kulu:=fresult.FieldValueByName('nname')+' '+fresult.FieldValueByName('vname');

    if not (edit1.Text+' '+edit2.text=kulu) then
        begin
        showmessage('Registration erfolgreich.');
                if assigned(FResult) then
                begin
                  if FMysql.Status<>MYSQL_STATUS_READY then
                  begin
                  ShowMessage('Ein Ergebnis wurde unvollständig gelesen!');
                  FreeAndNil(FResult);
                  end;
                end;
        q:='SELECT id FROM user ORDER BY id DESC';
        FResult:= FMysql.query(q, true, ex);
        FResult.First;
        anzahl:=strtoint(fresult.FieldValueByName('id'))+1;

         q:='INSERT INTO user (id, nname, vname, pw, jg, kl, email, telefon) VALUES (' +aps+ inttostr(anzahl) +aps+', '+aps+edit1.Text+aps+', '+aps+edit2.Text+aps+', '+aps+edit3.Text+aps+', '+aps+edit4.Text+aps+', '+aps+edit5.Text+aps+', '+aps+edit6.Text+aps+', '+aps+edit7.Text+aps+')';

        if checkbox1.State=cbchecked then
          begin
          for m:=1 to 7 do
          begin
          Tedit(findcomponent('edit' +inttostr(m))).Text:='';
          edit4.Text:='13';
          end;
          end;
        end
  else
      begin
      showmessage('Es wurde bereits ein Account mit diesem Namen angelegt.');
      kulu:='';
      end;
  end;

  end;