Seitenvergleich

var
  SAPConnection : TccSAPConnection;
  MyMessage     : String;
begin
  SAPConnection := TccSAPConnection.Create;
  try
    SAPConnection.Host         := '192.168.1.12';
    SAPConnection.SystemNumber := 1;
    SAPConnection.User         := 'exampleuser';
    SAPConnection.Password     := 'omg';
    SAPConnection.Language     := 'DE';

    if SAPConnection.Test(MyMessage) = false then 
    begin
      ShowMessage('Connection Problem ('+MyMessage+')!');
    end;
  finally
    SAPConnection.Free;
  end;
end;