Delphi siteye yorum

[SimaWB]

(31-05-2018, Saat: 00:00)Paranoyaq Adlı Kullanıcıdan Alıntı:

function DoLogin(const username,email,url,comment: string): string;
var
IdHTTP: TIdHTTP;
Request: TStringList;
begin
try
 Request := TStringList.Create;
 try
   Request.Add('action=do_login');
   Request.Add('url=https://www.oyunkabini.com/battlefield-v-ilk-fragmanini-yayinladi-ve-daha-fazlasi-dlc-premium-passes/');
   Request.Add('submit=727');
   Request.Add('author='+username);
   Request.Add('email='+email);
   Request.Add('url='+url);
   Request.Add('comment='+comment);
   Request.Add('submit');
   IdHTTP := TIdHTTP.Create;
   try
     IdHTTP.AllowCookies := True;
     IdHTTP.HandleRedirects := True;
     IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
     IdHTTP.Post('https://www.oyunkabini.com/wp-comments-post.php', Request);
     Result := IdHTTP.Get('http://www.oyunkabini.com');
     if StrUtils.ContainsStr(Result, 'submit') then //Login başarısız demektir
       Result := '';
   finally
     IdHTTP.Free;
   end;
 finally
   Request.Free;
 end;
finally
 Result := '';
end;
end;

except yerine finally

buton kodum 

memo2.Lines.Add(DoLogin(edit1.Text,edit2.Text,edit3.Text,memo1.Text));

Hata Could Not Load SSL library

Her hâlükârda (finally'de yazıldığı için) Result := '' olacaksa bu fonksiyonu ne amaçla kullanıyorsunuz?
Ayrıca

if StrUtils.ContainsStr(Result, 'submit') then //Login başarısız demektir

Login olduktan sonra ilgili web sitesi içinde submit kelimesinin geçip geçmediğini kontrol ediyorsunuz. Bu koddan emin misiniz? 
Login olmazsanız sayfada submit kelimesi var ama login olursanız sayfada hiç submit kelimesi geçmiyor olmalı ki yaptığınız bu kontrol işe yarasın.