type
  TFormUpload = class(TForm)
.......................
    procedure BitBtnPreviousClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    Procedure LoadSettings;
    Procedure SaveSettings;

blablabla.........

procedure TFormUpload.LoadSettings;
begin
   something
end;

procedure TFormUpload.SaveSettings;
begin
   something
end;