Как получить номер строки во время выполнения

можно ли получить номер исходной строки во время выполнения в Delphi? Я знаю отладку JCL, но не хочу ее использовать. Также Assert - это не совсем то, что я хочу. Я бы хотел получить что-то вроде этого, где GetLineNumber получал бы номер исходной строки. Можно ли сделать это без файлов MAP (в любом случае, файл MAP будет сгенерирован, когда я использую Assert)? Есть какой-нибудь пример?

function GetLineNumber: integer;
begin
  ???
end;

procedure ThisWouldBeGreat;
begin
  if not SomeCondition then
    LogMemo.Lines.Add('Error on line: ' + IntToStr(GetLineNumber));
end;

procedure ThatsWhatIWont;
begin
  Assert(not SomeCondition, 'Error');
end;

Спасибо