[roman]

Otra opción:

Código Delphi [-]
procedure SaveToUnix(FileName, Text: String);
var
  Stream: TFileStream;
  Buffer: String;

begin
  Buffer := AdjustLineBreaks(Text, tlbsLF);

  Stream := TFileStream.Create(FileName, fmCreate);
  try
    Stream.WriteBuffer(Buffer[1], Length(Buffer));
  finally
    Stream.Free;
  end;
end;

// Saludos