procedure TForm1.Button11Click(Sender: TObject);
 begin
  if Sm=true
    then
      begin
        Sm:=false;
        Memo1.Text:='';
     end
    else
      if Gauge1.PercentDone<100 
        then
          Memo1.Text:=(Memo1.Text+'9');
   Gauge1.Progress:=(Gauge1.PercentDone+2)
  end;

procedure TForm1.OnButtonREGClick(Sender:TObject)
begin
//первая форма исчезает, всплывает вторая
form1.Hide;
form2.Show;
end;

procedure TForm2.OnButtonREG2Click(Sender:TObject)
begin
//Тут сохраняешь данные о юзере свежезарегеном
//и снова появление первой формы
form2.Hide;
form1.Show;
end;

procedure TForm1.OnButtonEnterClick(Sender:TObject)
begin
//проверка зарегенного пользователя
//и появление основного (No3) окна проги
form1.hide;
form3.show;
end;

var
 f : text;
begin
AssignFile(f,'options.ini');
Rewrite(f);
WriteLn(f,'bla-bla-bla');
Close(f);
end;

var
 f : text;
 s : string;
begin
AssignFile(f,'options.ini');
Reset(f);
ReadLn(f,s);
Close(f);
end;

var
 f : text;
begin
AssignFile(f,'options.ini');
Rewrite(f);
WriteLn(f,'bla-bla-bla');
Close(f);
end;

var
 f : text;
 s : string;
begin
AssignFile(f,'options.ini');
Reset(f);
ReadLn(f,s);
Close(f);
end;

Rewrite(f);

Reset(f);