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

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.