1:
2:
3:

ILog( 'Info-Text' );
WLog( 'Warn-Text' );
ELog( 'Fehler-Text' );					

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

{$ASSERTIONS ON}
procedure MyAssertErrorProc(const Message, Filename: string; LineNumber: Integer; ErrorAddr: Pointer);
begin
 ShowMessage('"'+Message+'": in '+Filename+' at '+inttostr(LineNumber));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 AssertErrorProc := MyAssertErrorProc;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 assert(false,'Fehler-Text');
end;