here noob 
SCAR Code:
program New;
var
Client: Integer;
IP: string;
begin
ClearDebug;
Client := InitializeHTTPClient(False, False);
IP := GetHTTPPage(Client, 'http://www.auditmypc.com/whats-my-ip.asp');
IP := Between('Your IP address is <strong>', '</strong>', IP);
WriteLn('Your IP: '+IP);
SetProxyDetails(Client, '134.34.246.5', 3124);
IP := GetHTTPPage(Client, 'http://www.auditmypc.com/whats-my-ip.asp');
FreeHTTPClient(Client);
IP := Between('Your IP address is <strong>', '</strong>', IP);
WriteLn('Proxy: '+IP);
end.