Allgemeine Fragen zu Access + Delphi

[Saulo]

hilföööööö....
und noch ne frage

also ich steh vor dem problem, dass ein user erst dann weiterkommt wenn er sich registriert hat, und das soll hal so laufen dass man auf ok klickt und dann ein button aktiv (alsoo enabled) wird. nur irgendiwe klappt das nicht so ganz, hier der quelltext:

Code:

function username : boolean;
begin
  Datamodule2.qryUser.Close;
  DataModule2.qryUser.SQL.Clear;
  DataModule2.qryUser.SQL.Add('SELECT Username FROM TUser WHERE Username =' +QuotedStr(Form3.Edit1.Text));
  DataModule2.qryUser.Open;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  username;
  if username = true
  then ShowMessage('Der Username ist bereits vergeben!')
  else
  if
  (form3.MaskEdit1.Text = form3.MaskEdit2.Text)
  and
  (form3.MaskEdit2.Text <> '')
  then
    begin
      try
        DataModule2.TUser.Edit;
        DataModule2.TUser.FieldByName('Passwort').AsString := form3.MaskEdit2.text;
        DataModule2.TUser.FieldByName('Username').AsString := form3.Edit1.Text;
        DataModule2.TUser.Post;
      except
        ShowMessage('Fehler unsoo');
      end;
    end
  else ShowMessage('Das Passwort wurde falsch bestätigt!');

  if DataModule2.TUser.FieldByName('Vorname').AsString = ''
  then
    begin
      showmessage ('Bitte geben sie ihren Vornamen an!');
      form3.Button3.Enabled := false;
    end
  else form3.Button3.Enabled := true;

  if DataModule2.TUser.FieldByName('Nachname').AsString = ''
  then
    begin
      showmessage ('Bitte geben sie ihren Nachnamen an!');
      form3.Button3.Enabled := false;
    end
  else form3.Button3.Enabled := true;

  if DataModule2.TUser.FieldByName('Username').AsString = ''
  then
    begin
      showmessage ('Bitte geben sie einen Username an!');
      form3.Button3.Enabled := false;
    end
  else form3.Button3.Enabled := true;

  if inttostr(DataModule2.TUser.FieldByName('Tel').AsInteger) = ''
  then
    begin
      showmessage ('Bitte geben sie ihre Telefonnummer an!');
      form3.Button3.Enabled := false;
    end
  else form3.Button3.Enabled := true;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  form3.close;
  form1.show;
end;

der Username hat einen Primärschlüssel, deswegen soll am anfang geprüft werden ob der eingegebene schon vorhanden ist, nur irgednwie klappt das nicht ganz... liegt es daran dass die ID auch einen Primärschlüssel hat? können nicht beide einen Primärschlüssel haben? und am ende soll der weiter-butten erst aktiviert werden, wenn alle felder ausgefüllt sind. aber wenn man sich durch die ShowMessages durchgeklickt hat, wird er nach der letzten einfach aktiviert