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

 
try
  f := f div g;
 except
   on E: EConvertError do
    ShowMessage('Keine Divisoion durch 0 möglich');
  end;					

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

procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
  Label1.Caption:=E.Message;
  ApplicationEvents1.CancelDispatch;
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:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

 function ScanDirectory(var path: string): Boolean;
  var
    SRec: TSearchRec;
    pathlen: Integer;
    res: Integer;
  begin
    label4.Caption := path;
    pathlen := Length(path);
    res := FindFirst(path + filemask, faAnyfile, SRec);
    if res = 0 then
      try
        while res = 0 do
        begin
          hitlist.Add(path + SRec.Name);
          res := FindNext(SRec);
        end;
      finally
        FindClose(SRec)
      end;
    Application.ProcessMessages; 
    Result := not (FScanAborted or Application.Terminated);
    if not Result then Exit; 
    res := FindFirst(path +'*.*', faDirectory, SRec);
    if res = 0 then
      try 
        while (res = 0) and Result do
        begin
          if ((Srec.Attr and faDirectory) = faDirectory) and 
            (Srec.Name <> '.') and 
            (Srec.Name <> '..') then
          begin 
            path := path + SRec.Name + '\';
            Result := ScanDirectory(path);
            SetLength(path, pathlen); 
          end; 
          res := FindNext(SRec);
        end; 
      finally 
        FindClose(SRec)
      end; 
  end; 
begin
  FScanAborted := False; 
  Screen.Cursor := crHourglass;
  try
    Result := ScanDirectory(root); 
  finally 
    Screen.Cursor := crDefault
  end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var ch: Char;
  root: string;
  search: string;
begin
root := 'C:\';
for ch := 'B' to 'Z' do
begin
root[1] := ch;
case GetDriveType(PChar(root)) of
DRIVE_REMOVABLE:
if not ScanDrive(root, edit6.Text, Listbox1.Items) then
Break;					

1:
2:

if SetCurrentDir(root) then
  if not ScanDrive(...)					

1:
2:

if SetCurrentDir(root) then 
{.... bla bla blubba}					

1:
2:
3:
4:

[delphi]
{ Dein Quellcode }

[/delphi]					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function ScanDirectory(var path: string): Boolean;
var
SRec: TSearchRec;
pathlen: Integer;
res: Integer;
begin
  {...}
end; // <-- FUNKTIONSENDE!!! Und nun?? -->
begin
  FScanAborted := False;
  Screen.Cursor := crHourglass;
  try
    Result := ScanDirectory(root);
  finally
    Screen.Cursor := crDefault
  end;
end;					

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

begin
  FScanAborted := False;
  Screen.Cursor := crHourglass;
  try
    Result := ScanDirectory(root);
  finally
    Screen.Cursor := crDefault
  end;
end;