[Йогурт]

Здравствуйте! Еще вопрос возник по авторизации! На всякий повторяю код моей авторизации

PHP код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  id1,pass1: String;
  id2,pass2: String;
begin
  id1:='Администратор';
  pass1:='5112009';
  id2:='Продавец';
  pass2:='';

//Администратор

  if (Edit1.Text=id1) and (Edit2.Text=pass1) then
  begin
  Form2.N22.Visible:=False;
  Form17.Constraints.MaxHeight:=533;
  Form17.Constraints.MinHeight:=533;
  Form17.Constraints.MaxWidth:=424;
  Form17.Constraints.MinWidth:=424;
  Form1.Visible:=False;
  end
  //Продавец
  else if (Edit1.Text=id2) and (Edit2.Text=pass2) then
  begin
  Form2.N1.Visible:=False;
  Form2.N2.Visible:=False;
  Form2.N6.Visible:=False;
  Form17.Constraints.MaxHeight:=370;
  Form17.Constraints.MinHeight:=370;
  Form17.Constraints.MaxWidth:=424;
  Form17.Constraints.MinWidth:=424;
  Form1.Visible:=false;
  end
  else
begin
  if ((Edit1.Text=id1) and (Edit2.Text<>pass1))
  or ((Edit1.Text=id2) and (Edit2.Text<>pass2)) then
  Application.MessageBox('Введен не верный Логин или Пароль, попробуйте еще раз!','Ошибка');
  end;

//Отчистка edit
  if ((Edit1.Text=id1) and (Edit2.Text=pass1))
  or ((Edit1.Text=id2) and (Edit2.Text=pass2)) then Form2.Visible:=True;
  if ((Edit1.Text<>id1) or (Edit2.Text<>pass1))
  or ((Edit1.Text<>id2) or (Edit2.Text<>pass2)) then
begin
  edit1.Text:='';
  edit2.Text:='';
  end
  else
  if ((Edit1.Text=id1) and (Edit2.Text=pass1))
  or ((Edit1.Text=id2) and (Edit2.Text=pass2)) then
begin
  Edit1.Text:='';
  Edit2.Text:='';
  end;

end; 


Вопрос: Мне надо сделать чтобы я мог сменить пороль Администратора и Продовца. Также логин и пороль должен записыватся в текстовый файл.

Пожалуйста! Знающим, напишите код!

Заранее спасибо!