[高分悬赏]delphi richedit载入网络上的文本并且不可编辑

uses IdHTTP;

var
idp :TIdHTTP;
ms :TMemoryStream;
begin
idp := TIdHTTP.Create(Form1);
ms := TMemoryStream.Create;
try
//把地址改为你的地址
idp.Get('http://ver.bo.sohu.com/version/serverlist.txt'，ms);
ms.Position := 0;
RichEdit1.Lines.LoadFromStream(ms);
RichEdit1.ScrollBars := ssVertical;
RichEdit1.ReadOnly := True;
finally
FreeAndNil(ms);
FreeAndNil(idp);
end;
end;

unit Unit1;

interface

uses
Windows， Messages， SysUtils， Variants， Classes， Graphics， Controls， Forms，
Dialogs， StdCtrls， ComCtrls， IdBaseComponent， IdComponent，
IdTCPConnection， IdTCPClient， IdHTTP;

type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
S:WideString;
H:TIdHTTP;
begin
H:=TIdHTTP.Create(nil);
try

S:=H.Get(Edit1.Text) ;//下载文本
RichEdit1.Text:=s;
RichEdit1.ReadOnly:=True;//这样不能删除
finally
H.Free;
H:=nil;
end;

end;

end.