[Snake22]

в виндовc.pas есть процедура
OutputDebugString( str );
правда принимает тока строки. но можно написать процедурку такую

Код:

Procedure Debug(OutText:Variant);
var text:string;
begin
case TVarData(OutText).VType of
    varSmallInt,
    varInteger   : text := IntToStr(OutText);
    varSingle,
    varDouble,
    varCurrency  : text := FloatToStr(OutText);
    varDate      : text := FormatDateTime('dd/mm/yyyy', OutText);
    varBoolean   : if OutText then text := 'T' else text := 'F';
    varString    : text := OutText;
    else            text := '';
    end;
OutputDebugString(PChar(text));

end;

и всё что выводится смотреть в окне на вкладке view-debug - event log (ctrl+alt+v)