uses System.SysUtils, System.IOUtils;

var
  Text: string;
begin
  Text := 'Line 1' + sLineBreak + 'Line 2';

  try
    TFile.WriteAllText('file.txt',
      Text, TEncoding.UTF8);
  except
    on E: Exception do
      WriteLn(E.Message);
  end;
end.