Пустой пароль для User

[flyinsky]

Привет всем. У меня при запуске программы выходит форма авторизации. Так вот там всего два компонента Combobox1 (для пользователей. Там только два пользователя ADMIN и USER), мне нужно чтобы если пользователь выбрал "USER" в Combobox1 то в поле Edit занеслась запись "1" а сам Edit стал бы невидимым. А если пользователь выбрал "ADMIN" то поле edit стало видимым и поле Edit было пустое; Как мне это реализовать? пробовал так

procedure TForm6.ComboBox1DropDown(Sender: TObject);

begin
  if combobox1.Text='user' then begin
  edit1.text:='1';
   edit1.visible:=false;
  if combobox1.Text='admin' then begin
   edit1.text:='';
   edit1.visible:=true;
     end;

При выборе админа все нормально Edit становиться видимым и пустым.
Но при выборе User в Edit значение "1" не заноситься.

Вот весь код если нужно:

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm6 = class(TForm)
    Image1: TImage;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit2: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);







  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm6.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm6.Button1Click(Sender: TObject);
var s1: string;
    begin
    if combobox1.Text='admin' then form1.n9.Visible:=true;
   DataModule2.adoquery2.close;
   DataModule2.adoquery2.sql.clear;
    s1:='select * from Login where Login='+QuotedStr(combobox1.text)+'and Password='+QuotedStr(Edit1.text);
   DataModule2.adoquery2.sql.add(s1);
    DataModule2.adoquery2.active:=true;
   DataModule2.adoquery2.open;
    if not DataModule2.adoquery2.isEmpty then
    begin
    form1.Visible:=false;
    form6.Visible:= false;
    combobox1.Clear;
    Edit1.Clear;
    form1.Show;
    end
    else
    ShowMessage('Неправильно введены данные пожалуйста попробуйте еще раз')
    end;

procedure TForm6.Edit1Change(Sender: TObject);
begin
if combobox1.Text='user' then edit1.Text:='' ;
end;

procedure TForm6.ComboBox1DropDown(Sender: TObject);

begin
  if combobox1.Text='user' then begin
  edit1.text:='1';
   edit1.visible:=false;
  if combobox1.Text='admin' then begin
   edit1.text:='';
   edit1.visible:=true;
     end;
end.

[volod3000]

begin

  if combobox1.Text='user' then 
begin
  edit1.text:='1';
   edit1.visible:=false;
end;

  if combobox1.Text='admin' then 
begin
   edit1.text:='';
   edit1.visible:=true;
end;

end;

Внимательно посчитайте end;.