1:
2:
3:
4:
5:

try
  // tue irgentwas was vielleicht nicht funktionieren wird
except
  // hier tue was, wenn ein Fehlerauftaucht
end;					

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

procedure Test;
var 
  I:Integer;
begin
  try
    I:= StrToInt('Test'); // garantiert ein Fehler
  except
    I:=0; // keine Fehlermeldung, aber I bei Fehler auf Zero setzen
  end;   
end;					

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

procedure Test;
var 
  I:Integer;
begin
  try
    I:= StrToInt('Test'); // garantiert ein Fehler
  except
    MessageDlg('Ups, keine Zahl gefunden!',mtError,[mbOK],0); //Fehlermeldung ausgeben
    I:=0; // keine Fehlermeldung, aber I bei Fehler auf Zero setzen
  end;   
end;					

1:
2:

  NMHTTP1.Get(ed_website.text); 
  REdit_Q.Lines.Text := NMHTTP1.Body;