Нужно по нажатию кнопки сменить пароль

[Алексей_2012]

Здравствуйте, возможно глупая проблема, но нужно сделать так: по нажатию кнопки открыть форму, на которой будут компоненты:
medt1; edt1;edt2,button1. форму открыл, компоненты наложил, создал обработчик события для кнопки button1 (3-ая форма).

procedure TForm3.btn1Click(Sender: TObject);
type
  zap=record
  key,new,new_P:string[10];
  end;
  var
  W:ZAP;
  F:FILE OF ZAP;

begin
if medt1.text='askii-kod' then
                   begin
  AssignFile (f,'data');
Rewrite(f);
Seek(f,filesize(  f));
with w do
begin
  medt1.SetFocus;
key:=medt1.Text;
new:=edt2.text;
new_p:=edt3.text;
Write(f,w);
ShowMessage('Пароль заменен успешно!');
    end;
CloseFile(f);
end
else
ShowMessage('Пароль введен неверно!');
end;

как видите пароль записывается в файл, но мне нужно новый пароль считать из файла, а как к нему обратиться кнопкой, расположенной на другой (1-ая форма) форме? на первой форме есть поле для пароля, и кнопка, по нажатию которой проверяется правильность ввода пароля, мне и это нужно предусмотреть.

begin
if medt1.text='' then ShowMessage('ВВЕДИТЕ, ПОЖАЛУЙСТА, ПАРОЛЬ!!') else
if medt1.text='askii-kod' then
begin
mmo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'otv.dat');
medt1.Clear;
end
else
showmessage('Неправильный пароль! Проверьте раскладку клавиатуры...');
end;

Мы тему файлы проходили только на паскале пол-года назад, так что помогите пожалуйста)

[Рустам]

Form1.button1.click;

Жмёт кнопку на другой форме!

Read(f,w);

читает из файла

[Алексей_2012]

3-ая форма-это окно смены пароля, изменения сохраняются в файл, а кнопка на первой форме должна проверить пароль, или его изменения, и открыть доступ к файу с вопросами, но при нажатии кнопки на первой кнопке, нужно вить описать созданный файл 3-ей формы, и считать из него информацию, но это не получается, а ваше решение я уже пробовал

[Рустам]

зачем? запись и чтение нового пароля делай с 3-ей формы, а проверку (она у тебя на кнопке первой формы) оставь на ней же...
в любом случае, тебе файл описывать надо и там и там...
лучше опиши файл на первой форме глобально

...
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  zap=record
  key,new,new_P:string[10];
  end;
  var
  W:ZAP;
  F:FILE OF ZAP;


var
  Form1: TForm1;

implementation
...

, а из третей формы подтягивай...

procedure TForm2.Button1Click(Sender: TObject);
var zaps: Unit1.zap;
begin
end;

или вообще отдельным модулем сделай...

[Рустам]

создай свою функцию управления паролями где нить 1 раз, и вызывай её в программе откуда угодно...

[Алексей_2012]

Спасибо огромное!

[саша40]

А что за компонент medt?

[Serge_Bliznykov]

Сообщение от саша40

А что за компонент medt?

очевидно, что medt1 - это TEdit, в него автор топика пароль вводит...