Fórum Converter arquivo texto unix gt;gt; windows #280994

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringList.Create do
  try
    LoadFromFile(´c:\lixo\arq.TXT´);
    Text := StringReplace(Text,chr(10),chr(13)+chr(10),[]);
    SaveToFile(´c:\lixo\arq.TXT´);
  finally
    Free;
  end;
end;