delphi: fixup

Author: NickVolynkin

Delphi/PDFReportGenerator.dpr

@@ -52,9 +52,9 @@ begin
 
       AStream := TMemoryStream.Create;
       try
-        // Export the report to PDF format and save it to a Stream object
+        // Export the report to PDF format and save it to a memory stream
         AReport.ExportToPDF(AStream);
-        // Write the content of the Stream object to a file
+        // Write the content of the memory stream to a file
         AStream.SaveToFile(AOutput);
         Writeln('Report saved to: ', AOutput);
       finally
@@ -68,7 +68,6 @@ begin
   end;
 end;
 
-
 // The helper application entry point that parses command-line parameters and calls the export procedure
 begin
   var
@@ -86,9 +85,9 @@ begin
         var Key := Copy(AParam, 1, Pos('=', AParam) - 1).ToLower;
         var Value := Copy(AParam, Pos('=', AParam) + 1, Length(AParam));
 
-        if Key = 'ALayout' then
+        if Key = 'alayout' then
           ALayout := Value
-        else if Key = 'AOrderID' then
+        else if Key = 'aorderid' then
           AOrderID := Value;
       end;
     end;
@@ -101,4 +100,3 @@ begin
       Writeln(E.ClassName, ': ', E.Message);
   end;
 end.
-