Skillfully using command line parameters in Delphi to realize the trigger function of dragging files onto program icons

Effect demonstration ：

take 1.txt The content and content of 2.txt The contents of are merged and saved to 3.txt in
Core code ：

procedure TForm1.FormShow(Sender: TObject);
var
  i: integer;
  ms: TMemoryStream;
  ms2: TMemoryStream;
begin
  showmessage(' The number of command line parameters is :' + inttostr(paramcount));
  for i := 1 to ParamCount do
  begin
    showmessage(' The first ' + inttostr(i) + ' Command line parameters are :' + paramstr(i));
  end;
  showmessage(' Application name is :' + paramstr(0));
  //TMemoryStream File merge 
  ms := TMemoryStream.Create;
  ms.LoadFromFile(paramstr(1));
  ms.Position := ms.Size; // Move file pointer 
  ms2 := TMemoryStream.Create;
  ms2.LoadFromFile(paramstr(2));
  ms.CopyFrom(ms2, 0);
  ms.SaveToFile(GetCurrentDir + '\3.txt');
  ms.Free;
  ms2.Free;
  Form1.Close;
end;