1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function FileIsThere(FileName: string): Boolean;

{ Boolesche Funktion, die True zurückliefert, wenn die Datei vorhanden ist.
  Andernfalls wird False zurückgegeben. Closes the file if it exists. }
 var
  F: file;
begin
  {$I-}
  AssignFile(F, FileName);
  FileMode := 0;  { Datei mit Schreibschutz versehen }
  Reset(F);
  CloseFile(F);
  {$I+}
  FileIsThere := (IOResult = 0) and (FileName <> '');
end;  { FileIsThere }

begin

  if FileIsThere(ParamStr(1)) then { Dateiname von Kommandozeile lesen }
    Canvas.TextOut(10, 10, 'File exists')
  else
    Canvas.TextOut(10, 10, 'File not found');
end;                    

1:
2:
3:
4:
5:

var
  SwitchToArd: Boolean;
begin

  SwitchToArd := (TV.Status = staOn) and (TV.Sender = senSat1);