MySQL - üyelik bölümüm hakkında

[meko]

if UniQuery1.RecordCount <> 0 then
begin
ShowMessage('Bu kullanıcı adı zaten mevcut');
end else
begin  // burasını ekledim
  UniQuery1.Append; // yeni bir kayıt ekle
  UniQuery1.FieldByName('kullaniciadi').AsString:=edit1.Text; // kıyasla
  UniQuery1.FieldByName('sifre').AsString:=edit2.Text; // kıyasla
  UniQuery1.post;  // veritabanına yaz


  ShowMessage('Üyelik Oluşturuldu');

  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
end; // burasını ekledim
UniConnection1.Connected := false ;
UniQuery1.Active := false ;

üyeol.Close ;
girisekranı.Show ;