INDY suche passende OpenSSL Version

[KlausV]

Hallo,
Doch noch eine Frage:
Ich habe bei mir im Quellcode kein Creation von "TIdHTTP.Create(nil) do"
Kann ich dann vor jedem Post das SSL Statement eintragen:
  IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); So sieht eine Funktion aus. Im Programm gibt es 7 Funktionen, die einen POST machen.

Delphi-Quellcode:

function TfrmDMSMain.UploadData(var aData: TUpData): TUpResult;
var aPost: TStringList;
    aURL: String;
    aResponse: TStringStream;
begin
  Result:= TUpResult.create;
  aPost:= TStringList.Create;
  aResponse:= TStringStream.Create('');
  try
    //*** Prepare data to be posted
    PreparePostData(aPost, aData);
    //*** do HTTP-Post
    aURL:= ServletURL+ServUp;
    try
      IdHTTP.Post(aURL, aPost, aResponse);
      //*** write response to result
      Result.ParamString:= aResponse.DataString;
    except
      on e: Exception do
        Result.ParamString:= 'resultcode=0'+#13#10+'resultmessage='+
        RemoveLineBreak(e.Message)+#13#10+'sourceflag=1';
    end;
  finally
    aPost.Free;
    aResponse.Free;
  end;
end;