1:
2:
3:
4:
5:
6:
7:
8:

var i: Integer;

if ParamCount > 0 then
  for i:=1 to ParamCount do
    case ParamStr(i) of
      '/?': MessageBox(Handle,'Hilfe wurde als Parameter übergeben!',
                       pChar(Caption),MB_ICONINFORMATION);
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function TForm1.OpenMyFile(Filename: String) : Boolean;
var f: Textfile;
    line: String;
begin
  Result:=True;
  if not FileExists(Filename) then
    Result:=False
  else begin
    AssignFile(f,Filename);
    {$I-} Reset(f); {$I+}
    if ioResult <> 0 then
      Result:=False
    else
      while not eof(f) do begin
        Readln(f,line);
        Memo1.Lines.Add(line);
      end;
    CloseFile(f);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamCount > 0 then
    if not OpenMyFile(ParamStr(1)) then begin
      MessageBox(Handle,'Es ist ein Fehler beim Öffnen der Datei aufgetreten!',
                 pChar(Caption),MB_ICONERROR);
      Application.Terminate;
    end;
end;					

1:
2:
3:
4:
5:
6:

[Fehler] Unit1.pas(26): Undefinierter Bezeichner: 'OpenMyFile'
[Fehler] Unit1.pas(30): Undefinierter Bezeichner: 'Result'
[Fehler] Unit1.pas(31): Undefinierter Bezeichner: 'Filename'
[Fehler] Unit1.pas(34): Inkompatible Typen
[Fehler] Unit1.pas(51): Undefinierter Bezeichner: 'OpenMyFile'
[Fataler Fehler] Project2.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden					

1:
2:
3:
4:
5:
6:
7:
8:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
    function OpenMyFile(Filename: String) : Boolean;
  public
    { Public declarations }
  end;					

1:

var f: File of Irgendwas