Topic: проверить oleobject

мне нужно проверить существует или нет и если нет, то создать

http:=createoleobject('WinHttp.WinHttpRequest.5.1');

Re: проверить oleobject

var
    http: variant;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    if VarType(http)=varNull then http:=createoleobject('WinHttp.WinHttpRequest.5.1');
end;
Dmitry.