var
  text, line : string;

begin
  // Запись заголовка с '-' как символы подчеркивания
  text := '1.An introduction to life as we know it';
  line := StringOfChar('-', Length(text));

  // Отображение нашего подчеркнутого заголовка
  ShowMessage(text);
  ShowMessage(line);
end;