一行代码读网页源码

procedure TForm1.Button1Click(Sender: TObject);
var S:String;
begin
With TFPHttpClient.Create(nil) do
try
S:=TFPCustomHTTPClient.SimpleGet(Edit1.Text); //Edit1.Text为URL
finally
Free;
end;
Memo1.Text:=S;
end;

Lazarus和CT，需引用单元：fphttpclient