Stuff

  Inst := hInstance;
  with WinClass do
  begin
    style := CS_CLASSDC or CS_PARENTDC;
    lpfnWndProc := @WindowProc;
    hInstance := Inst;
    hbrBackground := color_btnface + 1;
    lpszClassname := 'AG_DOCTOTXT';
    hCursor := LoadCursor(0, IDC_ARROW);
  end; { with }
  RegisterClass(WinClass);

  Handle := CreateWindowEx(WS_EX_WINDOWEDGE, 'AG_DOCTOTXT', 'WinDocToTxt',
      WSF_VISIBLE, 0, 0, 0, 0, 0, 0, Inst, nil);


  Rich := TRichEdit.Create(nil);
  Rich.Parent := Handle;
  Rich.PlainText := True;
  Rich.Lines.LoadFromFile(Fil);
  Rich.PlainText := False;
  Rich.Lines.SaveToFile(Fil);
  Rich.Free;