Сделать загрузку инфы из файла без нажатия на кнопку

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(f,'memory.cfg');
Rewrite(f);
write(f, memory.text);
closefile(f);
end;
 
procedure TForm1.MemoryChange(Sender: TObject);
begin
AssignFile(f,'memory.cfg');
Reset(f);
read(f,s);
memory.text:=s;
closefile(f);
end;

if not (Key in ['0'..'9', #8]) then Key := #0;

var
  i: integer;
begin
  if TryStrToInt(Edit1.Text, i) and (i > 0) then
  begin
    // Здесь делаем, что нужно
  end
  else
    ShowMessage('Введите целое число, больше 0');
end;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;
 
procedure TForm1.Image1Click(Sender: TObject);
const
SourceFile = 'http://auto.ru/launcher.jpg';
DestFile = 'images\launcher.jpg';
begin
   if DownloadFile(SourceFile, DestFile) then
   begin
     Image1.Picture.LoadFromFile('images\launcher.jpg');
   end
   else
     ShowMessage('Не удалось загрузить' + SourceFile)
end;